Find.Wrap (Word)
Devuelve o establece lo que ocurre si la búsqueda se inicia en un punto que no sea el principio del documento y se llega al final del mismo, o viceversa si Forward está establecido en false, o si el texto de búsqueda no se encuentra en la selección o el intervalo especificado. Posibles valores de retorno son wdFindAsk - Después de buscar en la selección o el intervalo, Microsoft Word muestra un mensaje preguntando si debe buscar en el resto del documento, wdFindContinue - La operación de búsqueda continúa si se llega al principio o al final del intervalo de búsqueda, wdFindStop - La operación de búsqueda termina si se llega al principio o al final del intervalo de búsqueda.
Sub WordFind()
With Selection.Find
.Forward = True
.ClearFormatting
.MatchWholeWord = True
.MatchCase = False
.Wrap = wdFindContinue
.Execute FindText:="aspirin"
End With
End Sub