CreateSearchInfo Method
Returns a SearchInfo object that represents a custom find or find and replace operation.
expression.CreateSearchInfo
expression Required. An expression that returns an Application object.
Example
The following example finds the next occurrence of the P element in the active document.
Dim objSearch As SearchInfo
Dim blnFound As Boolean
Dim objRange As IHTMLTxtRange
Set objSearch = Application.CreateSearchInfo
objSearch.Find = "p"
objSearch.Action = fpSearchFindTag
Set objRange = Application.ActiveDocument.selection.createRange
blnFound = Application.ActiveDocument.Find(objSearch, Nothing, objRange)
If blnFound = True Then objRange.Select