Word查找并标记重复内容

bear8156 · 发表于 2017-11-27 18:05

一份word复习资料（甲乙丙3份依次粘贴而成），这3份复习资料内容有的不同，有的相同（不是指整段相同），我现在想把比如连续5个字以上有重复出现的给标记出来，该怎么操作啊？求给个思路。或者有这方面文档比较分析工具也请推荐。

denxh · 发表于 2017-11-27 20:51

工具-比较并合并文档

13907933959 · 发表于 2017-11-28 07:57

本帖最后由 13907933959 于 2017-11-28 08:00 编辑

网友好！

你看是不是这个意思？

Sub 标记重复()

With ActiveDocument.Content.Find

.Replacement.Font.Color = RGB(255, 0, 0)

.Execute "([一-﨩]){5,}", , , 1, , , , , , "", 2

End With

End Sub

13907933959 · 发表于 2017-11-28 08:01

本帖最后由 13907933959 于 2017-11-28 08:04 编辑

重复了，删除。

bear8156 · 发表于 2017-11-29 10:28

13907933959 发表于 2017-11-28 07:57
网友好！你看是不是这个意思？
Sub 标记重复() With ActiveDocument.Content.Find .Replacement ...

谢谢了，对vba不大熟练，所以没往这方面琢磨，受教了！

bear8156 · 发表于 2017-11-29 10:29

13907933959 发表于 2017-11-28 07:57
网友好！你看是不是这个意思？
Sub 标记重复() With ActiveDocument.Content.Find .Replacement ...

谢谢了，对vba不大熟练，所以没往这方面琢磨，受教了！

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

[求助] Word查找并标记重复内容