如何在Word文档中查找并突出显示重复的段落？

Author: Xiaoyang Last Modified: 2025-05-07

假设您有一个大型的Word文档，可能包含数百页，现在您想检查其中是否存在重复的段落，并将其突出显示以便于处理这些重复的句子。如何快速轻松地在Word文档中查找并突出显示重复的段落呢？

使用VBA代码在Word文档中查找并突出显示重复的段落

要在一个Word文档中查找并突出显示重复的段落，以下VBA代码可以帮助您，请按照以下步骤操作：

1. 按住ALT + F11键打开Microsoft Visual Basic for Applications窗口。

2. 然后，点击插入 > 模块，将以下代码复制并粘贴到打开的空白模块中：

VBA代码：在Word文档中查找并突出显示重复的段落：

Sub highlightdup()
    Dim I, J As Long
    Dim xRngFind, xRng As Range
    Dim xStrFind, xStr As String
    Options.DefaultHighlightColorIndex = wdYellow
    Application.ScreenUpdating = False
    With ActiveDocument
        For I = 1 To .Paragraphs.Count - 1
            Set xRngFind = .Paragraphs(I).Range
            If xRngFind.HighlightColorIndex <> wdYellow Then
                For J = I + 1 To .Paragraphs.Count
                    Set xRng = .Paragraphs(J).Range
                    If xRngFind.Text = xRng.Text Then
                        xRngFind.HighlightColorIndex = wdBrightGreen
                        xRng.HighlightColorIndex = wdYellow
                    End If
                Next
            End If
        Next
    End With
End Sub

3. 然后按 F5键运行此代码，所有重复的句子都会立即被突出显示，首次出现的重复段落将以绿色突出显示，其他重复项则以黄色突出显示，参见截图：

All duplicate sentences highlighted with the first displayed duplicate paragraphs highlighted in green and other duplicates in yellow