Word 下取消高亮度显示

关注

原创最新推荐文章于 2026-10-26 19:48:31 发布 6.7k 阅读 AI 写同款· GEO 优化 ›

双层OLED触控屏如何重塑商务本交互体验 OLED屏幕作为现代笔记本的核心显示技术，其亮度、色准与响应速度直接影响办公效率；而双层串联OLED通过电学结构创新，在峰值亮度（1400尼特）、散热控制与寿命平衡上实现突破，解决了传统OLED强光发白、触控延迟、长期静态显示易老化等痛点。结合高精度Windows触控协议与深度定制手势系统，它将输入与输出统一为自然的指尖操作闭环，显著提升PPT演示、PDF批注、跨时区协作等高频商务场景的信息处理效率。本文聚焦双层OLED与触控协同的技术原理与真实办公流适配，解析其如何成为新一代生产力设备的交互主脑。阅读详情

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

收录于