Microsoft Office Forums - View Single Post - Replacing the 2nd or 3rd instance of Text

gmayor · 05-13-2015, 10:21 PM

If you want to mark Pricing in Pricing Graph then you can search for Pricing Graph and mark the first word of the found text e.g.

Code:

Sub Macro1()
'Graham Mayor 14 May 2015
Dim oRng As Range
Set oRng = ActiveDocument.Range        'or Selection.Range
    With oRng.Find
        Do While .Execute(FindText:="Pricing Graph")
            oRng.Words(1).HighlightColorIndex = wdYellow
            Exit Do        'Remove if you want all 'Pricing Graph' entries to be found
        Loop
    End With
lbl_Exit:
    Exit Sub
End Sub