Replacement 对象

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