Question

Find Replacement 多种对象

该对象代表查找和替换操作的替换条件。Replacement 对象的属性和方法与“查找和替换”对话框中的选项一致。

使用 Replacement 对象

使用 Replacement 属性可返回一个 Replacement 对象。下列示例将下一处出现的单词“hi”替换为“hello”。

With Selection.Find
 .Text = "hi"
 .ClearFormatting
 .Replacement.Text = "hello"
 .Replacement.ClearFormatting
 .Execute Replace:=wdReplaceOne, Forward:=True
End With

若要查找和替换格式，可将查找和替换文字设为空字符串 ("")，并将 Execute 方法的Format 参数设为 True。下列示例删除活动文档中的所有加粗格式。Find 对象的 Bold 属性值为 True，而 Replacement 对象的该属性值为 False。

With ActiveDocument.Content.Find
 .ClearFormatting
 .Font.Bold = True
 .Text = ""
 With .Replacement
 .ClearFormatting
 .Font.Bold = False
 .Text = ""
 End With
 .Execute Format:=True, Replace:=wdReplaceAll
End With