Microsoft Office Forums - View Single Post - [Solved] Find and highlight multiple words in MS Word document

macropod · 05-26-2011, 03:34 PM

Hi AtaLoss,

That's a limitation of using 'MatchAllWordForms = True' - it only accepts letters. One way to handle this would be to force the Find/Replace to use both 'MatchAllWordForms = True' and 'MatchAllWordForms = False'. For example, add:
On Error Resume Next
before:
For i = 0 To UBound(Split(StrFnd, ","))
and insert:
.MatchAllWordForms = False
.Execute Replace:=wdReplaceAll
after:
.Execute Replace:=wdReplaceAll
This will pick up the words with apostrophes, but not the apostrophe and whatever follows it - unless you put the apostrophe and whatever follows it into the array.