如何能自动查找文章内重复的段落？

wood75

一篇word文章里面，有几个段落或是几句话内容一模一样，但自己并不知道是什么内容，现在有什么办法可以通过软件或是命令自动找到吗？

不要说什么ctrl+F，输入查找内容之类的了，这个问题好象基本无解。发这里看一下有没有高手能解决。

cangbei

Sub 标红word重复段落()'函数名称  
Dim acon As New Collection'创建新参数：文档范围
Dim apar As Paragraph'创建新参数：短句  
Dim starttime, endtime'创建新参数：开始时间，结束时间
On Error Resume Next'忽略错误  
starttime = Timer'向开始时间参数赋值
Application.ScreenUpdating = False  
For Each apar In ActiveDocument.Paragraphs
acon.Add apar.Range, VBA.CStr(apar.Range.Text)
If Err.Number = 457 Then  
'apar.Range.Delete   '直接删除重复段落（若要使用，删除次行最前面引号运行即可）
apar.Range.Font.Color = wdColorRed  '标记重复段落为红色
Err.Clear
End If
Next
Application.ScreenUpdating = True
endtime = Timer  
MsgBox "用时：  " & endtime - startime'输出处理时间提示
End Sub

duquancai

Sub W_标记重复段落()
    Dim mt, reg As Object
    Set reg = CreateObject("vbscript.regexp")
    reg.Global = True: reg.MultiLine = True
    reg.Pattern = "^(.*)\r(?=[\s\S]*^\1$)"
    For Each mt In reg.Execute(ActiveDocument.Content)
        With ActiveDocument.Range(mt.FirstIndex, mt.FirstIndex + mt.Length)
            .HighlightColorIndex = wdYellow
        End With
    Next
End Sub

wood75

cangbei 发表于 2017-3-16 23:09
Sub 标红word重复段落()'函数名称  
Dim acon As New Collection'创建新参数：文档范围
Dim apar As Par ...

想问一下，这些函数语句要如何使用？用宏还是什么？

wood75

duquancai 发表于 2017-3-16 23:58
Sub W_标记重复段落()
    Dim mt, reg As Object
    Set reg = CreateObject("vbscript.regexp")

想问一下，这些函数语句要如何使用？用宏还是什么？

jiminyanyan

wood75 发表于 2017-3-20 16:21
想问一下，这些函数语句要如何使用？用宏还是什么？

这是VBA………………