[jonmacpherson]

Well..... heres a real world example of a very similar program, which controls word, and combines articles. Your mileage may vary. You may use all, parts of or none of this script.

I learned how to write the following program by looking at word controlling programs others had written.


#!c:\perl56\bin\perl
#
# Combine Articles using MS Word, and save them back to their original queue.



BEGIN {

use Cwd;
use CGI::Carp qw(fatalsToBrowser);
use Win32::OLE;
use ANPA;



require "cgi-lib.pl";
require "Gamma.pm";
require "Security2.pm";
require "cn4.lib";
require "Process.pm";
require "SubData.pm";
require "QueueAccess.pm";

$folder = "o:\\combine\\";
$sys_Universal_Prefix = "o:\\";

$InchLengthMacro = "Normal.Module1.GetInches";


}

print 'Content-type: text/html', "\n\n";

$data = new Gamma::Process();

my $wrd = CreateObject Win32::OLE "Word.Application" or die $1;
$wrd->{'Visible'} = 1;

%lingo = (
'article.rec_type' => 0, # not used
'article.category' => 1, #
'article.date' => 2,
'article.add_date' => 3,
'article.add_time' => 4, # Used by auotpurger to delete old articles
'article.exp_date' => 5,
'article.owner' => 6,
'article.active' => 7,
'article.title' => 8,
'article.author' => 9,
'article.image' => 10, # In Stone.
'article.photocap' => 11,
'article.template' => 12, #
'article.priority' => 13,
'article.intro' => 14,
'article.story' => 15,
'article.notes' => 16,
'article.relevency' => 17
);


$data->_fill_lev1( { 'lingo_record' => \%lingo } );





chdir ($folder);

opendir (DIR, $folder) || die "cannot open $folder due to $!";

@LIST = readdir DIR;


foreach $file (@LIST){

# Only look for cmb files.
if ($file =~ m/\.cmb$/ig){
print $file;
&combineArticles($file);

}


}


sub combineArticles {

my ($file) = @_;

$fullFile = $folder . $file;
$destQueue = $file;
$destQueue =~ s#-Q-F-.*##igs;
$destFile = $file;
$destFile =~ s#^.*-Q-F-##igs;
$destFile =~ s#\.cmb$##igs;
$slug = $destFile;
$destFile = $sys_Universal_Prefix . $destQueue . "/" . $destFile . ".doc";

$sys_record = $sys_Universal_Prefix . $destQueue . "/" . "records.gamma";


print $fullFile;
open (CMBInstr, "$fullFile")|| die "Cannot open $fullFile due to $!";
@FILENAmes = <CMBInstr>;
close CMBInstr;


my $ToDoc = $wrd->Documents->Add;

foreach $file (@FILENAmes){

if ($file =~ m/\w/ig){

$file = $file . ".doc";
$file = $sys_Universal_Prefix . $destQueue . "/" . $file;
$file =~ s#\n##igs;

my $doc = $wrd->Documents->Open( $file ) || die "Cannot open $file due to $!";
$doc->Content->Copy;
print "Copying Contents of $file \n";
$doc->Close();

print "Removing Temporary File $file \n";
#system (" del \"$file\" ");

print "Pasting Contents of $file into \n \t $destFile \n";
$wrd->Run('Normal.NewMacros1.PasteText');


}

}

$ToDoc->SaveAs($destFile);

$wrd->Run($InchLengthMacro);

$ToDoc->Close();

system(" del \"$fullFile\" ");

$t = time();


my $InchesDataFile = $destFile . ".count";
open (INCHFILE, $InchesDataFile);
my (@Counttainer) = <INCHFILE>;
close INCHFILE;

unlink($InchesDataFile);

my $InchLenghtIn = join ('', @Counttainer);
$InchLenghtIn =~ s#\n##igs;

{

# Get the current date, and chop out the parts that are unwanted.
# I only want the month day of the month and time
# example: jul 19 14:23:06

my ($DateString) = "" . localtime(time());

my ($dweek, $mon, $dmon, $time, $yr) = split (' ', $DateString );

$DesiredDateString = "$mon $dmon $time";

}
$data->read($sys_record, 'record');

print "Writting changes to $sys_record \n\n";
print "Slug \t\t $slug \n";
print "Date \t\t $DesiredDateString \n";
print "TimeStamp \t $t \n";
print "Inches \t\t $InchLenghtIn Inches \n";
print "Queue \t\t $destQueue \n";

$data->_fill_lev1({'object' => 'record'});
$data->_fill_lev2('files', { 'record' => $sys_record });
$data->_fill_lev2('formdata', { 'record_index' => $slug,
'article.title' => $slug,
'article.date' => $DesiredDateString,
'article.add_date' => $t,
'article.add_time' => $t,
'article.template' => $destQueue,
'record.index' => $slug,
'article.intro' => '',
'article.notes' => $InchLenghtIn . " Inches",
'article.owner' => ""
} );

$data->_auto_save_any();
$data->write( $sys_record, 'record');

}

$wrd->Quit;