Range.Find (Word)

Renvoie un objet Find qui contient les critères spécifiés pour une recherche.

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