向前辈们求二个去除 “突出显示” 的宏

13907933959 · 发表于 2016-12-22 18:10

本帖最后由 13907933959 于 2016-12-22 18:29 编辑

文档内有多种 “突出显示的颜色”。

第一个宏：将红色、蓝色的 “突出显示” 全部删除，保留文字。

第二个宏：将红色的 “突出显示” 转为红色的文字，蓝色的 “突出显示” 转为蓝色的文字。

求前辈们赐教！谢谢！

413191246se · 发表于 2016-12-22 21:29

本帖最后由 413191246se 于 2016-12-24 21:24 编辑

探索半天，终于成功！但算法并不高明，算是抛砖引玉，期盼杜先生（duquancai）等高人指正！——139 请在处理时耐心等待一下。思路：查找突出显示文字，找到后对选定区域逐字符处理（此算法相对较慢，可能杜先生等高人会有更好的办法）。（代码略。）

13907933959 · 发表于 2016-12-23 10:35

本帖最后由 13907933959 于 2016-12-23 11:01 编辑

413191246se 发表于 2016-12-22 21:29
探索半天，终于成功！但算法并不高明，算是抛砖引玉，期盼杜先生（duquancai）等高人指正！——139 请在处 ...

师傅好！
抱歉！难为了您！
慢是慢一些，但也能用！杜前辈这一段时间可能较忙，看他回复的较少，期待他有空能帮忙编写一个速度更快的！
感谢师傅！！！

duquancai · 发表于 2016-12-23 14:09

13907933959 发表于 2016-12-23 10:35
师傅好！
抱歉！难为了您！
慢是慢一些，但也能用！杜前辈这一段时间可能较忙，看他回复的较少，期待他有 ...

两个需求其实就是一个需求！！！我只写你第二个需求吧！

Sub HighlightColorToColor()
Dim mt, n&, m&
With CreateObject("vbscript.regexp")
.Global = True: .IgnoreCase = False
.Pattern = "[^\r]"
For Each mt In .Execute(ActiveDocument.Content)
m = mt.FirstIndex: n = mt.Length
With ActiveDocument.Range(m, m + n)
If .HighlightColorIndex = wdRed Or .HighlightColorIndex = wdBlue Then
.Font.ColorIndex = .HighlightColorIndex
.HighlightColorIndex = wdNoHighlight
End If
End With
Next
End With
End Sub

复制代码

13907933959 · 发表于 2016-12-23 16:40

本帖最后由 13907933959 于 2016-12-25 06:44 编辑

duquancai 发表于 2016-12-23 14:09
两个需求其实就是一个需求！！！我只写你第二个需求吧！

杜前辈好！
代码较我师傅的短了不少，速度也快了。非常感谢！
前辈、能不能劳您再满足第一个要求？将红色、蓝色的 “突出显示” 全部删除，保留文字。（文字不要变色，删除了 “突出显示” 即可）。

因要处理的文件较多，我师傅给的代码有时会死机，（可能是我的电脑配置太低或文件较大的原因），望前辈能再出手相助！

另外、问一下前辈，这句 s = s & .Parent& vbCr 语句是什么意思？谢谢！

sandorn · 发表于 2016-12-23 19:08

13907933959 发表于 2016-12-23 16:40
杜前辈好！
代码较我师傅的短了不少，速度也快了。非常感谢！
前辈、能不能劳您再满足第一个要求？将红 ...

自己仿写一个就是了。

Sub 删除突出显示_红突蓝突()
Dim mt, n&, m&
With CreateObject("vbscript.regexp")
.Global = True: .IgnoreCase = False
.Pattern = "[^\r]"
For Each mt In .Execute(ActiveDocument.Content)
m = mt.FirstIndex: n = mt.Length
With ActiveDocument.Range(m, m + n)
If .HighlightColorIndex = wdRed Or .HighlightColorIndex = wdBlue Then
.HighlightColorIndex = wdNoHighlight
End If
End With
Next
End With
End Sub

复制代码

sandorn · 发表于 2016-12-23 19:11

本帖最后由 sandorn 于 2016-12-23 19:12 编辑

duquancai 发表于 2016-12-23 14:09
两个需求其实就是一个需求！！！我只写你第二个需求吧！

请教个问题，你代码中写到
.Pattern = "[^\r]"
我了解是正则，但是你的表达式看不懂，[^\r]表示回车以外的其他字符吗？为什么不用 .Pattern = "." 呢？？？
请指教，谢谢！！

13907933959 · 发表于 2016-12-24 08:23

本帖最后由 13907933959 于 2016-12-25 06:42 编辑

sandorn 发表于 2016-12-23 19:08
自己仿写一个就是了。

前辈好！
可以了，对 VBA 我还处在免强会用的阶段，修改代码我的水平还不够！

感谢您的出手相助！谢谢！

另外、问一下前辈，这句 s = s & .Parent& vbCr 语句是什么意思？

sandorn · 发表于 2016-12-26 07:38

13907933959 发表于 2016-12-24 08:23
前辈好！
可以了，对 VBA 我还处在免强会用的阶段，修改代码我的水平还不够！感谢您的出手相助！谢谢！ ...

就是把字符串s后面连接上一个字符串，再加上回车。
连接上的字符串是前一个with的父对象
我是这样理解的，不知道对不对

13907933959 · 发表于 2016-12-26 08:06

sandorn 发表于 2016-12-26 07:38
就是把字符串s后面连接上一个字符串，再加上回车。
连接上的字符串是前一个with的父对象
我是这样理解 ...

前辈好！
我虽还是看不太懂（因水平不够），但感谢前辈赐教！谢谢！

		自动登录	找回密码
密码			免费注册

[求助] 向前辈们求二个去除 “突出显示” 的宏