Find 属性

       

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