F
Frank Lane
Dim docStory As Range
Set docStory = ActiveDocument.Content
With docStory.Find
.ClearFormatting
.Execute FindText:="Acronym List",Forward:=True, Wrap:=wdFindContinue
If .Found Then
docStory.HighlightColorIndex = wdTurquoise
Debug.Print "found one"
End If
End With
Set docStory = ActiveDocument.Content
With docStory.Find
.ClearFormatting
.Execute FindText:="Acronym List",Forward:=True, Wrap:=wdFindContinue
If .Found Then
docStory.HighlightColorIndex = wdTurquoise
Debug.Print "found one"
End If
End With