Highlight 属性

对于 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