WIN32::OLE MS Word Replace

gibsonca has asked for the wisdom of the Perl Monks concerning the following question:

Hi monks!

I can do a simple find and replace, but how do I change the font in the replacement? For example, in the following code segment I want to underline (or bold) just the word 'will', presume it is in a sentence like 'You will go to the store.'.

$selection->{'Find'}->{'Text'} = " will ";
$selection->{'Find'}->{'Replacement'}->{'Text'} = "*** will ***";
$selection->{'Find'}->Execute({Replace => wdReplaceOne});
[download]

Any help appreciated.

Comment on WIN32::OLE MS Word Replace Download Code

Replies are listed 'Best First'.
Re: WIN32::OLE MS Word Replace by hominid (Priest) on Oct 15, 2009 at 17:54 UTC
`$selection->{'Find'}->{'Replacement'}->{'Font'}->{'Bold'} = 1` [download] This should do it. You have been told in other posts how to go about finding solutions to MS Word related automation problems. I would also point out the Word Object Model Reference. For this case look at the Replacement object.	[reply] [d/l]