识别Word文档中的重复标题/章节

Question

我有一个大字的文件。现在我正在寻找一个解决方案，可以告诉我是否有重复的章节/标题。当找到一个我想要的名字（也许是页码）。后来我想自己删除重复的章节。

标题没有编号，是样式表（标题1）。

我认为VBA脚本会这样做，但我从未使用它。怎么能这样做？

这是我到目前为止的方式：

Sub FindDuplicates()
    Dim DocPara As Paragraph
    Dim DocPara2 As Paragraph

    For Each DocPara In ActiveDocument.Paragraphs
        If Left(DocPara.Range.Style, Len("Überschrift 1")) = "Überschrift 1" Then
            For Each DocPara2 In ActiveDocument.Paragraphs
                If Left(DocPara.Range.Style, Len("Überschrift 1")) = "Überschrift 1" Then
                     Debug.Print DocPara.Range.Text
                End If
            Next
        End If
    Next
End Sub

但它永远不会完成。不知道我的代码中是否有错误，或者VBA无法处理数据量（> 400页）。也许有人可以提供帮助。