Question

对于 Find 对象：如果该属性值为 True，则在查找条件中包含突出显示格式，可返回或设置为 True、False 或 wdUndefined。Long 类型，可读写。

注意 wdUndefined 值可用于 Find 对象，以在需要搜索的所选内容或范围中忽略突出显示格式的状态。

对于 Replacement 对象：如果该属性值为 True，则将突出显示格式应用于替换文本。可返回或设置为 True、False 或 wdUndefined。Long 类型，可读写。

示例

本示例在活动文档中查找所有的突出显示的文字，并通过将 Replacement 对象的 Highlight 属性设置为 False，来删除突出显示格式。

Dim rngTemp As Range

Set rngTemp = ActiveDocument.Range(Start:=0, End:=0)
With rngTemp.Find
 .ClearFormatting
 .Highlight = True
 With .Replacement
 .ClearFormatting
 .Highlight = False
 End With
 .Execute Replace:=wdReplaceAll, Forward:=True, FindText:="", _
 ReplaceWith:="", Format:=True
End With

本示例为活动文档中下一次出现的加粗文本设置突出显示格式。

With Selection.Find
 .ClearFormatting
 .Font.Bold = True
 With .Replacement
 .ClearFormatting
 .Highlight = True
 End With
 .Execute Forward:=True, FindText:="", ReplaceWith:="", _
 Format:=True
End With