Question

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

expression.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