Run the word macro by using Win32::OLE

[gopalr]

Hi Monks,

Pls. guide me that how to run the MS-Word Macro by using Win32::OLE.

I get word object and find the pattern and replace it.

use OLE;
use Win32::OLE::Const 'Microsoft Word';
my $const=Win32::OLE::Const->Load("Microsoft Word 9.0 Object Library")
+;
$word=GetObject OLE("Word.Application");

$word->Selection->HomeKey({unit=>$const->{'wdStory'}});
$word->Selection->Find->{'Text'}='google.com';
$word->Selection->Find->Replacement->{'Text'}='<web>google.com</web>';
$word->Selection->Find->Execute({Replace=>$const->{'wdReplaceAll'}});

I have a macro name called 'Macro1'. How to run this macro by using OLE.

Thanks in Advance

Gopal.R

[wfsp]

try something like


$word->run('Macro1', 'arg1');


Updated: Too many ->

[guha]

I don't really understand the connection between your example code and the question for running a macro. However the second part of your example should be written like:

my $range = $word->ActiveDocument->Content;
$range->Find->Execute( 
  {
   FindText    => 'google.com',
   ReplaceWith => '<web>google.com</web>',
   Replace     => $const->{'wdReplaceAll'},
  }
);

This code is however untested.

HTH