通过

FindReplace 对象 (Publisher)

  • 项目

代表查找操作的条件。 属性和方法的 FindReplace 对象对应于 查找和替换 对话框中的选项。

备注

当 ReplaceScope 属性设置为 PbReplaceScope 常量 之一 pbReplaceScopeOne 或 pbReplaceScopeAll 时，必须设置 ReplaceWithText 属性以避免将文本替换为该属性的空 String 的默认值。

使用 TextRange.Find 属性可返回 FindReplace 对象。

设置 ReplaceScope 属性，以确定搜索的范围。

示例

以下示例选择“工厂”一词的下一个匹配项。

With ActiveDocument.Find 
 .Clear 
 .FindText = "factory" 
 .Execute 
End With

以下示例将名称 Visual Basic Scripting Edition 的第一个匹配项替换为 VBScript。

With ActiveDocument.Find 
 .Clear 
 .FindText = "Visual Basic Scripting Edition" 
 .ReplaceWithText = "VBScript" 
 .ReplaceScope = pbReplaceScopeOne 
 .Execute 
End With

以下示例说明当 ReplaceScope 设置为 pbReplaceScopeNone 时，如何访问 FoundTextRange 的字体属性。

Dim objFindReplace As FindReplace 
 
Set objFindReplace = ActiveDocument.Find 
With objFindReplace 
 .Clear 
 .FindText = "important" 
 .ReplaceScope = pbReplaceScopeNone 
 Do While .Execute = True 
 If .FoundTextRange.Font.Italic = msoFalse Then 
 .FoundTextRange.Font.Italic = msoTrue 
 End If 
 Loop 
End With

方法

属性

另请参阅

支持和反馈

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