以下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