返回一个 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