Word 下取消高亮度显示

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

Sub HighLight()
Dim rang As Range
Dim fnd As Find

Set rang = ActiveDocument.Range
Set fnd = rang.Find
fnd.Text = "Microsoft Word"
fnd.MatchWholeWord = True
fnd.HitHighlight ("Microsoft Word")

Set fnd = Nothing
Set rang = Nothing
End Sub

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

Sub CleanHighLight1()
Dim rang As Range
Dim fnd As Find

Set rang = ActiveDocument.Range
Set fnd = rang.Find
fnd.Text = "Word"
fnd.MatchWholeWord = True
fnd.HitHighlight ("Word")
fnd.ClearHitHighlight

Set fnd = Nothing
Set rang = Nothing
End Sub

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

Sub CleanHighLight2()
Dim rang As Range
Dim fnd As Find
Dim subr As Range

Set rang = ActiveDocument.Range
Set fnd = rang.Find
While fnd.Execute("Word")
rang.Select
With rang.Find
.Text = "Word"
.ClearHitHighlight
End With
Wend

Set fnd = Nothing
Set rang = Nothing
End Sub