用VBA一次查找到文档中各不相同的重复句子、并用红色标识

13907933959 · 发表于 2016-3-31 12:03

本帖最后由 13907933959 于 2016-4-1 09:25 编辑

求前辈们帮忙！谢谢！

请查看下面的模拟附件！

今天在网上找到一个不知是那位前辈编写的代码，能运行，可不知为什么却不能找到重复的句子，也未对其标为红色。

Sub 标记重复的句子()

Dim I As Paragraph, oSen As Range, MySearchRange As Range

Dim MyArray() As String, aArray As Variant

Application.ScreenUpdating = False

On Error Resume Next ' 忽略错误

With ActiveDocument ' 遍历段落（注：原来是ThisDocument，没有反应，改为ActiveDocument也没有反应）

For Each I In .Paragraphs ' 如果为空白段落则跳过或者到达最后一个段落则进入下一个循环

If VBA.Len(I.Range) = 1 Or I.Range.Start =.Content.Paragraphs.Last.Range.Start Then GoTo GN

Set MySearchRange = .Range(I.Range.End, .Content.End)

MySearchRange.Select '-----------------

With Selection.Find ' 在指定的RANGE 中查找

s = I.Range

s = Replace(s, "。", "，")

s = Replace(s, "；", "，")

MyArray = VBA.Split(s, "，") ' 由逗号为分隔符(本来在句子中循环，修改)

.ClearFormatting ' 清除查找格式

For Each aArray In MyArray ' 在"句子" 中循环,如果查找到该内容,则设置为红色

Do While.Execute(findtext:=aArray)

.Parent.Font.Color = vbRed ' 将找到的句子标红

' MySearchRange.Paragraphs(1).Range.Font.Color = wdColorRed ' 整段标红

Loop

MySearchRange.Select

GN: Next

End With

MsgBox "OK!!!"

Application.ScreenUpdating = True

End Sub

13907933959 · 发表于 2016-4-20 13:04

求前辈们帮忙！谢谢！

duquancai · 发表于 2016-4-20 13:28

本帖最后由 duquancai 于 2016-4-20 13:29 编辑

13907933959 发表于 2016-4-20 13:04
求前辈们帮忙！谢谢！

利用word中正则表达式查找替换。详见http://club.excelhome.net/thread-1273013-1-1.html

13907933959 · 发表于 2016-4-21 09:27

duquancai 发表于 2016-4-20 13:28
利用word中正则表达式查找替换。详见http://club.excelhome.net/thread-1273013-1-1.html

感谢前辈出手相助！我是要查找、如附件中由汉字组成的不同的重复句子，能否再求前辈详教！劳请给编个代码，谢谢！

13907933959 · 发表于 2016-8-8 14:28

本帖最后由 13907933959 于 2016-8-8 16:56 编辑

用VBA一次查找到文档中各不相同的重复句子、段落，并用红色标识。

唉！这个问题过了这么久，都没有人能解答，看来是个难题！

听说原来的守版主编写过一个“守柔Word文本筛——文档重复段落和相似段落分析工具”，没找到，那位前辈有，望能上传一个，在下先谢过！

duquancai · 发表于 2016-8-8 18:41

13907933959 发表于 2016-8-8 14:28
用VBA一次查找到文档中各不相同的重复句子、段落，并用红色标识。
唉！这个问题过了这么久，都没有人能解 ...

wordvba中定义一句话：Sentence对象是以：句号感叹号问号这三种来判断一句话。那么请问你，你是怎么定义一句话的？

13907933959 · 发表于 2016-8-9 07:25

本帖最后由 13907933959 于 2016-8-9 07:56 编辑

duquancai 发表于 2016-8-8 18:41
wordvba中定义一句话：Sentence对象是以：句号感叹号问号这三种来判断一句话。那么请问你，你是 ...

前辈好！
感谢您的多次出手相助！
在这些有重复句子、段落的Word文档中，后面的标点符号不统一，句号、感叹号、问号、逗号、顿号、分号、冒号，这些都有。想求前辈帮忙，可否有办法单以这些标点符号分別作为判别的标准（类似附件上，那些没有标点符号结尾的重复句子，暂不管它，以后我手工逐个解决），找到重复的句子、段落，并用红色标注？

duquancai · 发表于 2016-8-9 10:12

13907933959 发表于 2016-8-9 07:25
前辈好！
感谢您的多次出手相助！
在这些有重复句子、段落的Word文档中，后面的标点符号不统一，句号、 ...

没有判断标准？怎么搞？还有就是：“那些没有标点符号结尾的重复句子”这话本来就矛盾。比如：你说是重复的，如果你说的重复“句子”再往右移动一个字符，那就是不重复了，或者往左移动一个以上的字符也可以叫重复，本来你这个需求就是矛盾的，所以至今别人也没法解决！！！

13907933959 · 发表于 2016-8-9 10:32

duquancai 发表于 2016-8-9 10:12
没有判断标准？怎么搞？还有就是：“那些没有标点符号结尾的重复句子”这话本来就矛盾。比如：你说是重复 ...

前辈好！
是，“那些没有标点符号结尾的重复句子”本来就矛盾。现在放弃。
我想问的是，可否有办法让有：句号、感叹号、问号、逗号、顿号、分号、冒号，这些标点符号结尾的重复句子、段落，把这些结尾的标点符号分別作为判别的标准，再找到这些重复的句子、段落，并用红色标注？

duquancai · 发表于 2016-8-9 10:57

本帖最后由 duquancai 于 2016-8-9 14:45 编辑

13907933959 发表于 2016-8-9 10:32
前辈好！
是，“那些没有标点符号结尾的重复句子”本来就矛盾。现在放弃。
我想问的是，可否有办法让有 ...

答案在16楼：

复制代码

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

[求助] 用VBA一次查找到文档中各不相同的重复句子、并用红色标识