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

zhqang · 发表于 2009-4-21 06:27

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

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

金融危机冲击下.rar (21.04 KB, 下载次数: 56)

sylun · 发表于 2009-4-21 09:23

可试试如下代码。当然，处理结果包括了这样的情形：匹配内容只是其所在句中的一部分，如要求整个句子相匹配，则要修改代码。
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

守柔 · 发表于 2009-4-21 09:27

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

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

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

zhqang · 发表于 2009-4-24 20:08

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

tournesol119 · 发表于 2019-3-9 17:10

本帖最后由 tournesol119 于 2019-3-9 19:13 编辑

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

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

tournesol119 · 发表于 2019-3-9 17:24

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

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

[求助] 如何自动查找文章中重复的句子