Microsoft Office Forums - View Single Post - [Solved] Need help with modifying a replacing font VBA code- similar task but subtle change

DougMVP · 07-06-2016, 11:33 PM

Use

Code:

 
Selection.HomeKey wdStory
Selection.Find.ClearFormatting
With Selection.Find
    Do While .Execute(FindText:="\(insert * emoji\)", MatchWildcards:=True, Forward:=True, Wrap:=wdFindStop) = True
        With Selection
            If MsgBox("Click OK to colorize selection", vbOKCancel) = vbOK Then
                .Range.Shading.BackgroundPatternColor = wdColorYellow
            End If
            .Collapse wdCollapseEnd
        End With
    Loop
End With

If you just want the colorizing to happen without click OK each time, delete the If and EndIf lines, leaving the .Range.Shading.BackgroundPatternColor = wdColorYellow line.