Re^2: Win32::OLE running macros

Thanks, been there. This just seems so straight forward.

Open an instance of a MS office product
Open an instance of a document using that product instance
Run macro on active document using product instance
SaveAs new filename.

Obviously I am not sure why it still isn't working.
When I make the change you suggest I get a "save" dialogue rather than a "SaveAs" one.
I guess I just keep working on it until I find the right combination...kind of like a Rubix Cube.

Comment on Re^2: Win32::OLE running macros

Replies are listed 'Best First'.
Re^3: Win32::OLE running macros by Anonymous Monk on May 09, 2005 at 15:05 UTC
This works...in case anyone cares in the future `#Create filenames $file =~ s/(.*)\.fin/$1/i; $file = $1; my $fileName = "$file.rtf"; my $fileName2 = "$file.doc"; my $doc = Win32::OLE->new('Word.Application', 'Quit'); $doc->Documents->Open($path); $doc->ActiveDocument->SaveAs({FileName => $fileName, FileFormat => wdF +ormatRTF}); $doc->ActiveDocument->SaveAs({FileName=> $fileName2}); $doc->Run("psqtemplate"); $doc->ActiveDocument->Save; #Close Winword $doc->Quit(); undef $doc;` [download]	[reply] [d/l]

Replies are listed 'Best First'.

Re^3: Win32::OLE running macros
by Anonymous Monk on May 09, 2005 at 15:05 UTC

#Create filenames
$file =~ s/(.*)\.fin/$1/i; 
$file = $1; 
my $fileName = "$file.rtf"; 
my $fileName2 = "$file.doc"; 

my $doc = Win32::OLE->new('Word.Application', 'Quit');
$doc->Documents->Open($path);         
$doc->ActiveDocument->SaveAs({FileName => $fileName, FileFormat => wdF
+ormatRTF}); 
$doc->ActiveDocument->SaveAs({FileName=> $fileName2});
$doc->Run("psqtemplate");
$doc->ActiveDocument->Save;

#Close Winword
$doc->Quit(); 
undef $doc;
[download]

[reply]
[d/l]