Word VBA教程:Highlight属性

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

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

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

VBA示例

本示例在活动文档中查找所有的突出显示的文字,并通过将 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

Word VBA教程

Word VBA参考教程:目录1 Word VBA参考教程:目录2
Word VBA参考教程:目录3 Word VBA参考教程:目录4
Word VBA参考教程:目录5 Word VBA参考教程:目录6
Word VBA参考教程:目录7 Word VBA参考教程:目录8
Word VBA参考教程:目录9 Word VBA参考教程:目录10
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号