Word VBA教程:Find属性

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

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

VBA示例

下面的示例在文档中向前搜索“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

Word VBA教程

Word VBA参考教程:目录1 Word VBA参考教程:目录2
Word VBA参考教程:目录3 Word VBA参考教程:目录4
Word VBA参考教程:目录5 Word VBA参考教程:目录6
Word VBA参考教程:目录7 Word VBA参考教程:目录8
Word VBA参考教程:目录9 Word VBA参考教程:目录10
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号