Word 下取消高亮度显示

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

Sub HighLight()
Dim rang As Range
Dim fnd As FindSet 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 FindSet rang = ActiveDocument.Range
Set fnd = rang.Find
fnd.Text = "Word"
fnd.MatchWholeWord = True
fnd.HitHighlight ("Word")
fnd.ClearHitHighlightSet fnd = Nothing
Set rang = Nothing
End Sub

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

Sub CleanHighLight2()
Dim rang As Range
Dim fnd As Find
Dim subr As RangeSet rang = ActiveDocument.Range
Set fnd = rang.Find
While fnd.Execute("Word")
rang.Select
With rang.Find
.Text = "Word"
.ClearHitHighlight
End With
WendSet fnd = Nothing
Set rang = Nothing
End Sub

转载于:https://www.cnblogs.com/mksword/archive/2012/06/22/3934067.html

Word 下取消高亮度显示相关推荐

计算机开机其他用户,Win8.1系统下取消开机显示“其他用户”的方法
使用win8.1系统的用户是否都会发现这样一个问题,就是开机时很有可能就会在桌面上提示"其他用户",必须得点击"确定"并返回,才能选择自己要登陆的帐户,但是每次 ...
word文档下划线无法显示的解决方法
在编辑文档的时候经常会遇到下划线无法显示的情况,如图: 如果遇到不能在姓名后面加下划线的情况,我们该怎么做? 请看下面的图解: 1.首先点击左上角的office图标 2.点击右下角"word ...
word 2021 空格处下划线不显示
word 2021 空格处下划线不显示问题解决办法问题尾部空格不显示下划线解决办法空格处下划线就显示出来了
Windows系统中Word文档中文字后面的空格下的下划线不显示的解决办法
笔者最近在做课程设计,需要写Word文档,在写文档的时候遇到了一堆bug,现在课程设计肝完了,终于有时间梳理梳理这些bug然后发布出来做个备忘录. 第一个bug是Windows系统中Wor ...
为什么我的word一打开就显示启动失败，然后要用安全模式打开？解决方法有2
为什么我的word一打开就显示启动失败,然后要用安全模式打开?解决方法有2 电脑打开word,excel,PowerPoint会提示启动失败,要用安全模式打开,特麻烦.有时候还会提示"安装一 ...
word下设置多个起始页面
word下设置多个起始页面如果在Word文档中创建了页眉.页脚,那么在默认情况下,一篇文章从头到尾的页眉页脚都是一样的. 但有时,我们还需要根据不同的章节内容而设定不同的页眉页脚.有的朋友将不同的章 ...
【jQuery Demo】图片由下至上逐渐显示
无意中看到如何实现一张图片从下往上慢慢显现出来这个问题,弄了半天还是从上往下的效果,纠结了,最后还是提问人自己搞定了!不过哈哈,又学到一点知识! 1.下面是我自己做的效果(按钮可以点哦) 图片由下至上 ...
Win10下取消U盘/移动硬盘“写保护”的方法
MS酋长昨天与大家分享了通过修改注册表为U盘/移动硬盘设置"写保护"的方法,那么又该如何取消U盘/移动硬盘的"写保护"呢?其实只需把注册表中新建的WritePr ...
word文件图标无法显示的问题
摘要:word文件的图标无法正常显示,但是可以直接双击打开,也就是说word没有问题关键字: word 图标有一天重启电脑之后发现word文件的图标显示成了一个未知文件的图标,其他的office软 ...
Office word 列表级别不显示解决办法
Office word 列表级别不显示解决办法 word列表级别不显示问题,如图: 解决办法: 第一步:鼠标光标放在黑线("重"字旁边)出,然后按"左"光标健选 ...

Word 下取消高亮度显示

Word 下取消高亮度显示相关推荐

最新文章

热门文章