返回一个 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