in reply to Replace word in Win32::OLE

Hi,

Modify your code as given below

$word->Selection->Find->Execute();

should be

$word->Selection->Find->Execute({Replace=>$const->{'wdReplaceAll'}}); 
+  #replace whole file

$word->Selection->Find->Execute({Replace=>$const->{'wdReplaceOne'}}); 
+  #replace one by one

[download]

for more information see replace

regards,
Franklin

Don't put off till tomorrow, what you can do today.

In Section Seekers of Perl Wisdom