Range.Find (Word)

Returns a Find object that contains the criteria for a find operation.

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