查找对象 (Word)
代表查找操作的执行条件。
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
如果你已从 Range 对象中获得 Find 对象,当发现文本与下一个查找条件匹配时,所选内容不会更改,但将重新定义 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
有关于 Office VBA 或本文档的疑问或反馈? 请参阅 Office VBA 支持和反馈,获取有关如何接收支持和提供反馈的指南。