如何自动查找文章中重复的句子

zhqang

我在工作碰到这样一个问题，需要自动查找文章中的句子，如果找到一个重复的自动用红色标识出来。重复的句子有可能是多个。

请教高手用VBA解决的方法，多谢了。 金融危机冲击下.rar (21.04 KB, 下载次数: 56)

2009-4-21 06:27 上传

点击文件名下载附件

sylun

可试试如下代码。当然，处理结果包括了这样的情形：匹配内容只是其所在句中的一部分，如要求整个句子相匹配，则要修改代码。
Sub test()
Dim iSentence As Range, myRange As Range
Application.ScreenUpdating = False
For Each iSentence In ActiveDocument.Sentences
    If iSentence.Font.Color <> wdColorRed Then
        Set myRange = ActiveDocument.Range(iSentence.End, ActiveDocument.Content.End)
        With myRange.Find
            .ClearFormatting
            .Text = iSentence.Text
            .Replacement.Text = "^&"
            .Replacement.Font.Color = wdColorRed
            .Execute replace:=wdReplaceAll
        End With
    End If
Next
Application.ScreenUpdating = True
End Sub

守柔

原帖由 zhqang 于 2009-4-21 06:27 发表
我在工作碰到这样一个问题，需要自动查找文章中的句子，如果找到一个重复的自动用红色标识出来。重复的句子有可能是多个。

请教高手用VBA解决的方法，多谢了。498146

您可以参考一下《守柔WORD文本筛》

zhqang

我要求匹配整个句子，并改成蓝色显示。

tournesol119

sylun 发表于 2009-4-21 09:23
可试试如下代码。当然，处理结果包括了这样的情形：匹配内容只是其所在句中的一部分，如要求整个句子相匹配 ...

请问高手，这个代码在word中我试了一下，只能匹配出整个句子呢，如果想匹配的内容只是句子的一部分，这个代码是什么呢？

tournesol119

请问楼主一下，你这个问题在楼下大神的指导下，用代码解决了吗？