Range.Find (Word)

Devuelve un objeto Find que contiene los criterios para una operación de búsqueda.

Dim fndFind As Find
Set fndFind = ActiveDocument.Range.Find