Try:

[VBA]Sub DemoXYZ()
Dim oRng As Range, arrWords, i As Long, HiLite As Variant

arrWords = Array("vulture", "turkey")
For i = 0 To UBound(arrWords)
Set oRng = ActiveDocument.Range
With oRng.Find
.ClearFormatting
.Replacement.ClearFormatting
.MatchWholeWord = False
.Replacement.Text = "^&"
.Replacement.Highlight = True
HiLite = Options.DefaultHighlightColorIndex
Options.DefaultHighlightColorIndex = wdGreen
.Text = arrWords(i)
While .Execute(Replace:=wdReplaceOne)
oRng.Collapse wdCollapseEnd
MsgBox "You have used a restricted word: " & arrWords(i)
Wend
End With
Next
Set oRng = Nothing
End Sub[/VBA]