Microsoft Office Forums - View Single Post - [Solved] Help with VBA code to find and highlight text

mpdsal · 10-30-2012, 10:15 AM

I think I got it. It may be crude but it works. I think within a week or two I can be an MPV.

Code:

Sub Highlight_WordN()
Dim sFindText As String
'Start from the top of the document
 Selection.HomeKey wdStory
 
sFindText = "Procedure Step:"
Selection.Find.Execute sFindText
Do Until Selection.Find.Found = False
Selection.EndKey Unit:=wdLine, Extend:=wdExtend
        Selection.Range.HighlightColorIndex = wdYellow
        Selection.MoveRight
        Selection.Find.Execute
Loop
End Sub