Word VBA教程:Find对象

多种对象
Find
多种对象

该对象代表查找操作的执行条件。Find对象的属性和方法与“替换”对话框中的选项一致。

使用 Find对象

可用 Find属性返回一个 Find对象。下例查找和选定下一个出现的“hi”。


With Selection.Find
    .ClearFormatting
    .Text = "hi"
    .Execute Forward:=True
End With

下例示例在活动文档中查找所有“hi”并将其替换为“hello”。


Set myRange = ActiveDocument.Content
myRange.Find.Execute FindText:="hi", ReplaceWith:="hello", _
    Replace:=wdReplaceAll

说明

在 Selection对象中使用 Find对象时,找到符合选择条件的文本后选定内容将会改变。下例选定下一次出现的“blue”。


Selection.Find.Execute FindText:="blue", Forward:=True

在 Selection对象中使用 Range对象时,找到符合选择条件的文本后选定内容不会改变,但 Range对象将会重新定义。下列示例在活动文档中查找出现的第一个“blue”。如果在文档中找到“blue”,myRange 将重新定义,并且“blue”的字体变为粗体。


Set myRange = ActiveDocument.Content
myRange.Find.Execute FindText:="blue", Forward:=True
If myRange.Find.Found = True Then myRange.Bold = True

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号