如何在Word文檔中查找並突出顯示重複的段落？

Author: Xiaoyang Last Modified: 2025-05-12

假設您有一個大型的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