Beefy Boxes and Bandwidth Generously Provided by pair Networks
laziness, impatience, and hubris

WIN32::OLE MS Word Replace

by gibsonca (Beadle)
on Oct 15, 2009 at 15:29 UTC ( #801372=perlquestion: print w/ replies, xml ) Need Help??
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});

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 (Curate) on Oct 15, 2009 at 17:54 UTC
    $selection->{'Find'}->{'Replacement'}->{'Font'}->{'Bold'} = 1
    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.

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: perlquestion [id://801372]
Approved by wfsp
Front-paged by tye
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others romping around the Monastery: (6)
As of 2016-02-14 22:03 GMT
Find Nodes?
    Voting Booth?

    How many photographs, souvenirs, artworks, trophies or other decorative objects are displayed in your home?

    Results (471 votes), past polls