Replacement 属性

返回一个 Replacement 对象，该对象包含了一次替换操作所需的条件。

expression   必需。该表达式返回一个 Find 对象。

示例

本示例取消活动文档中的加粗格式。对于 Find 对象，Bold 属性为 True；对于 Replacement 对象，Bold 属性为 False。

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

本示例将在活动文档中查找到的“Start”替换为“End”。查找操作忽略查找文字的格式，但大小写需要匹配（“Start”）。

Set myRange = ActiveDocument.Range(Start:=0, End:=0)
With myRange.Find
    .ClearFormatting
    .Text = "Start"
    With .Replacement
        .ClearFormatting
        .Text = "End"
    End With
    .Execute Replace:=wdReplaceAll, _
        Format:=True, MatchCase:=True, _
        MatchWholeWord:=True
End With