word vba 问题求助

yang611

这段代码似乎只能标出句首的重复项，见截图
第三段与第二段段尾重复，并没有标识出来？！

yang611

继续求助。。

yang611

继续求助中。。。。。。

yang611

已补充上附5楼和10楼代码的测试文档。
程序运行问题见word批注。
请各位帮忙，谢谢大家。

zhanglei1371

非常简单！代码如下：
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
                Next
            End With
GN:             Next
    End With
    MsgBox "OK!!!"
    Application.ScreenUpdating = True
End Sub
如果你一开始就提供附件，问题早就解决了。

yang611

完美解决!
谢谢zhanglei1371。

yang611

zhanglei1371 发表于 2013-7-31 11:21
非常简单！代码如下：
Sub 快速标记完全重复的句子()
    Dim i As Paragraph, oSen As Range, MySearchR ...

本程序似乎是判断字词的重复性，如果文档很大，运行时间非常长，能否再做适当优化，例如下例中的“结果表明、通常”能否视为不重复。即，程序只对以逗号分隔的句子进行判断，提高其运行效率。谢谢

试验结果表明，该高镁夹层抗压强度较高，完整性也很好，完全可以加工成建筑骨料。故在矿山建设中配套建了一条骨料生产线，确保了矿岩的综合利用，这当然是一个好的例子。结果表明，该项目可行。
石灰岩矿石中的共、伴生矿床通常有砂页岩、黏土、板岩等，有时这部分废石（对石灰岩矿而言）所占比例还不低，数量也相对集中。通常，该项目可行。

zhanglei1371

把这两句去掉就行了：
            s = Replace(s, "。", "，")
            s = Replace(s, "；", "，")
至于上面的两段，并没有你说的现象，我试了下：只有最后一句标红：
试验结果表明，该高镁夹层抗压强度较高，完整性也很好，完全可以加工成建筑骨料。故在矿山建设中配套建了一条骨料生产线，确保了矿岩的综合利用，这当然是一个好的例子。结果表明，该项目可行。
石灰岩矿石中的共、伴生矿床通常有砂页岩、黏土、板岩等，有时这部分废石（对石灰岩矿而言）所占比例还不低，数量也相对集中。通常，该项目可行。

yang611

补充求救：
在Word2010中运行上述代码，word为什么会卡死呢？
需要重新引用某个函数么？