Microsoft Office Forums - View Single Post - [Solved] Highlight every occurrence of ...

eduzs · 06-24-2020, 02:13 PM

Is there a single sub that will do this for a list of words? Based on your code.

This code I was editing is not working:

Code:

Set oDoc = ActiveDocument
aFind = Array(". ,", "house")
Set oRng = oDoc.range
For x = 0 To UBound(aFind)
    With oRng.Find
        .Text = aFind(x)
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
        Do While .Execute(Forward:=True) = True: oRng.HighlightColorIndex = wdYellow: Loop
    End With
Next x