Do While .Execute(FindText:=rFindText, _ MatchWholeWord:=True) = True
Do While .Execute(FindText:=rFindText) = True