Sub Hilite_All_Instances()
'In selection, hilite all plain occurrences of the hilited strs
'in their respective colors.

Dim oSel As range
Dim oRng As range
    Application.ScreenUpdating = False
    Set oSel = selection.range
    Set oRng = selection.range
    Do
        selection.range.Find.ClearFormatting
        selection.range.Find.Replacement.ClearFormatting
        With oRng.Find
            .Highlight = True
            If .Execute And oRng.InRange(selection.range) Then
                ClrFind = oRng.HighlightColorIndex
                Set oSel = selection.range
                With oSel.Find
                    .text = oRng
                    .MatchCase = True
                    .MatchWholeWord = True
                    .MatchWildcards = False
                    .Forward = True
                    .Wrap = wdFindStop
                    While .Execute And oSel.InRange(selection.range)
                        oSel.HighlightColorIndex = ClrFind
                    Wend
                End With
            Else: Exit Do
            End If
        End With
    Loop
    Application.ScreenUpdating = True
    Set oSel = Nothing
    Set oRng = Nothing
 End Sub