Question

返回一个 Find 对象，该对象包含了查找操作所需的条件。只读。

注意 将本属性用于 Selection 对象时，如果查找到了所需内容，则所选内容就会改变。如将本属性用于 Range 对象，则除非用 Select 方法，否则所选内容不改变。

示例

下面的示例在文档中向前搜索“Microsoft”。如果找到了，就自动选定该词。

With Selection.Find
 .Forward = True
 .ClearFormatting
 .MatchWholeWord = True
 .MatchCase = False
 .Wrap = wdFindContinue
 .Execute FindText:="Microsoft"
End With

本示例在活动文档中的每个样式为标题 3 的段落前插入“Tip:”。在每次找到该样式时，Do Loop 语句重复同样的一系列操作。

With ActiveDocument.Content.Find
 .ClearFormatting
 .Style = wdStyleHeading3
 Do While .Execute(FindText:="", Forward:=True, _
 Format:=True) = True
 With .Parent
 .StartOf Unit:=wdParagraph, Extend:=wdMove
 .InsertAfter "Tip: "
 .Move Unit:=wdParagraph, Count:=1
 End With
 Loop
End With