Word 下取消高亮度显示

来源：互联网发布：走廊室内设计知乎编辑：程序博客网时间：2024/05/24 07:27

以下VBA代码会高亮度显示“Microsoft Word”

Sub HighLight()Dim rang As RangeDim fnd As FindSet rang = ActiveDocument.RangeSet fnd = rang.Findfnd.Text = "Microsoft Word"fnd.MatchWholeWord = Truefnd.HitHighlight ("Microsoft Word")Set fnd = NothingSet rang = NothingEnd Sub

如果要取消对“Word”的高亮度显示你可能会这样写：

Sub CleanHighLight1()Dim rang As RangeDim fnd As FindSet rang = ActiveDocument.RangeSet fnd = rang.Findfnd.Text = "Word"fnd.MatchWholeWord = Truefnd.HitHighlight ("Word")fnd.ClearHitHighlightSet fnd = NothingSet rang = NothingEnd Sub

结果你会发现你所有的高亮度显示都会不见了。这是因为第二个程序中的Find和第一个程序中的Find作用范围是一样的。所以当你取消高亮的时候所有的高亮显示都回被取消。真确的写法应该是这样的:

Sub CleanHighLight2()Dim rang As RangeDim fnd As FindDim subr As RangeSet rang = ActiveDocument.RangeSet fnd = rang.FindWhile fnd.Execute("Word")rang.SelectWith rang.Find.Text = "Word".ClearHitHighlightEnd WithWendSet fnd = NothingSet rang = NothingEnd Sub