createTextRange Method
Returns an IHTMLTxtRange object that represents a range of text and elements in a document.
expression.createTextRange
expression Required. An expression that returns one of the objects in the Applies To list.
Example
The following example searches the active document for the specified text, and then selects the text if it is found.
Dim objRange As IHTMLTxtRange
Dim blnFound As Boolean
Set objRange = ActiveDocument.body.createTextRange
blnFound = objRange.findText("search text")
If blnFound = True Then objRange.Select