作者：绿色风
分类：
时间：2022-08-18
浏览：111
楼主
liuguansky |
Q:
如何把文档中出现过2次及以上的字符标已红色来区别?
A:
用如下代码可以实现:
- Sub justtest()
- Dim d As Object, c As Range, t As String, dI '定义变量
- Set d = CreateObject("scripting.dictionary") '创建字典项目
- Application.ScreenUpdating = False '关闭屏幕刷新
- For Each c In ThisDocument.Characters '循环字符
- t = c.Text
- If t <> " " And t <> Chr(13) Then '对非空白字符进行处理
- If d.Exists(t) Then d(t) = d(t) + 1 Else d.Add t, 1 '利用字典计数
- End If
- Next
- Selection.HomeKey unit:=wdStory '定位文档开头
- For Each dI In d.keys '循环字典关键字
- If d(dI) > 1 Then '如果ITEM即出现次数大于1的话
- With Selection.Find '查找项
- .Replacement.Font.ColorIndex = wdRed '设置替换的字体颜色
- .Text = dI '设置查找值
- .Replacement.Text = dI '设置替换值
- .Execute Replace:=wdReplaceAll '设置替换模式
- End With
- End If
- Next
- Application.ScreenUpdating = True
- Set d = Nothing
- End Sub
 桌面.rar
|
2楼
wudixin96 |
工程很浩大啊，花花
 |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一