I have the same program written for Excel that works
fine both locally and part of a CGI
Here is the Error I get:
Can't call method "Content" on an undefined value at
c:\scripts\sr.pl line 19.
Here is the Code:
#!/perl/bin
use strict;
use Win32::OLE;
use Win32::OLE::Const 'Microsoft Word';
my $oldfile = 'c:\tmp\test.doc';
my $newfile = 'c:\tmp\test1.doc';
my $oldtext = 'change me';
my $newtext = 'I am changed';
my $word =
Win32::OLE->GetActiveObject('Word.Application')
|| Win32::OLE->new('Word.Application','Quit');
my $doc = $word->Documents->Open("$oldfile");
# is application visible 0=no 1=yes
$word->{visible} = 0;
my $search = $doc->Content->Find;
my $replace = $search->Replacement;
$search->{Text} = $oldtext;
$replace->{Text} = $newtext;
$search->Execute({Replace => wdReplaceAll});
# save word file
$word->ActiveDocument->SaveAs($newfile);
# close word file
$doc->Close();
$word->Quit();
__________________________________________________
Do you Yahoo!?
Yahoo! Shopping - Send Flowers for Valentine's Day
http://shopping.yahoo.com
_______________________________________________
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
