麻烦高手告诉一下怎么把试卷中的重复题目删除

ly8421

麻烦高手告诉一下怎么把试卷中的多余重复题目删除，只留一题选择题或者判断题

duquancai

啥意思？看不懂。。。。。。。。。。。。。。。。。。。。。

duquancai

Sub 删除重复段落()
    Dim D As Object, i&
    Set D = CreateObject("Scripting.Dictionary")
    With ActiveDocument
        For i = .Paragraphs.Count To 1 Step -1
            If Not .Paragraphs(i).Range.Information(12) Then
                If Not D.Exists(.Paragraphs(i).Range.Text) Then
                    Set D(.Paragraphs(i).Range.Text) = .Paragraphs(i).Range
                Else
                    D(.Paragraphs(i).Range.Text).Text = Empty
                    Set D(.Paragraphs(i).Range.Text) = .Paragraphs(i).Range
                End If
            End If
        Next
    End With
End Sub

ly8421

duquancai 发表于 2017-11-29 21:54
Sub 删除重复段落()
    Dim D As Object, i&
    Set D = CreateObject("Scripting.Dictionary")

能否把重复段落只保留一次？

duquancai

ly8421 发表于 2017-12-5 04:55
能否把重复段落只保留一次？

难道你没测试上面的代码？？？

szqhb

duquancai 发表于 2017-11-29 21:54
Sub 删除重复段落()
    Dim D As Object, i&
    Set D = CreateObject("Scripting.Dictionary")

代码很好，收藏了

ly8421

duquancai 发表于 2017-12-5 11:14
难道你没测试上面的代码？？？

等我测试看看，不好意思，谢谢

kflqs

向２楼学习　用作整理文档也不错，可去除文档中的空行

wdpfox

收藏了杜老师的代码，谢谢！