Try a macro like this to highlight any
paragraphs that contain the string provided by the user.
Code:
Sub HighlightHits()
Dim aPara As Paragraph, sFind As String
sFind = LCase(InputBox("What are we looking for today?", "Finder", "Office"))
ActiveDocument.Range.HighlightColorIndex = wdNoHighlight
For Each aPara In ActiveDocument.Paragraphs
If InStr(LCase(aPara.Range.Text), sFind) > 0 Then
aPara.Range.HighlightColorIndex = wdDarkYellow
End If
Next aPara
End Sub