通过

查找对象 (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

另请参阅

Word 对象模型参考

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。