Document.Find 属性 (Publisher)

从指定的 Document 对象返回 FindReplace 对象。 FindReplace 对象用于在指定文档中进行文字搜索与替换。

语法

表达式。找到

表达 一个代表 Document 对象的变量。

示例

应用于 Document 对象。 下面的示例将一个对象变量设置为活动文档的 FindReplace 对象。 执行搜索操作，该操作对每次出现“重要”一词时应用加粗格式。

Dim objFind as FindReplace 
Dim fFound as Boolean 
 
Set objFind = ActiveDocument.Find 
fFound = True 
 
With objFind 
 .Clear 
 .FindText = "Important" 
 Do While fFound = True 
 fFound = .Execute 
 If Not .FoundTextRange Is Nothing Then 
 .FoundTextRange.Font.Bold = True 
 End If 
 Loop 
End With 

应用于 TextRange 对象。 下面的示例将一个对象变量设置为 FindReplace 对象在活动文档中第一个形状的文本范围。 执行搜索操作，该操作对文本范围中出现的单词“紧急”的每个匹配项应用加粗格式。

Dim objFind as FindReplace 
Dim fFound as Boolean 
 
Set objFind = ActiveDocument.Pages(1) _ 
 .Shapes(1).TextFrame.TextRange.Find 
fFound = True 
 
With objFind 
 .Clear 
 .FindText = "Urgent" 
 Do While fFound = True 
 fFound = .Execute 
 If Not .FoundTextRange Is Nothing Then 
 .FoundTextRange.Font.Bold = True 
 End If 
 Loop 
End With

支持和反馈

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