Word 下取消高亮度显示

最新推荐文章于 2021-08-10 12:02:31 发布

原创最新推荐文章于 2021-08-10 12:02:31 发布 · 6.6k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#microsoft #vba

Office Development 同时被 3 个专栏收录

134 篇文章

订阅专栏

Word 2010

32 篇文章

订阅专栏

VBA

23 篇文章

订阅专栏

本文介绍如何使用VBA在Microsoft 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