TextRange.Find 属性 (Publisher)
从指定的 TextRange 对象返回 FindReplace 对象。 使用 FindReplace 对象来执行文本搜索和替换指定的文本范围中。
语法
表达式。找到
表达 一个代表 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 支持和反馈,获取有关如何接收支持和提供反馈的指南。