Superb! Many thanks.
I have this code, how I can change it to instead of turning the font color blue apply a wavy + words underline based on your code?
(ps. I didn't use the find/found because the strange behaviors of this instruction)
Quote:
For oWord = 1 To Selection.Paragraphs(1).Range.Words.Count
If Len(Trim(Selection.Paragraphs(1).Range.Words(oWord ).Text)) > 4 Then
If InStr(1, PalsRep, Trim(Selection.Paragraphs(1).Range.Words(oWord).Te xt), vbTextCompare) > 1 Then
With Selection.Paragraphs(1).Range.Words(oWord).Font.Co lorIndex = wdBlue
End If
End If
Next oWord
|