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