Find.Wrap procedure builder

Find.Wrap (Word)

Returns or sets what happens if the search begins at a point other than the beginning of the document and the end of the document is reached (or vice versa if Forward is set to False) or if the search text isn't found in the specified selection or range.

wdFindAsk - After searching the selection or range, Microsoft Word displays a message asking whether to search the remainder of the document, wdFindContinue - The find operation continues if the beginning or end of the search range is reached, wdFindStop - The find operation ends if the beginning or end of the search range is reached.
Sub WordFind() 
 With Selection.Find 
 .Forward = True 
 .ClearFormatting 
 .MatchWholeWord = True 
 .MatchCase = False 
 .Wrap = wdFindContinue 
 .Execute FindText:="aspirin" 
 End With 
End Sub