Word中筛选重复文本

在日常办公中，我们经常需要处理大量文字内容，有时会不小心输入重复的段落或句子。Microsoft Word 本身没有直接“筛选重复文本”的功能，但可以通过以下方法实现类似效果。

方法一：使用“查找”功能手动检查

适用于少量重复内容：

1. 按 Ctrl + H 打开“替换”对话框。
2. 在“查找内容”中输入你怀疑重复的关键词或短语。
3. 点击“查找下一处”逐个确认是否为重复内容。

方法二：使用VBA宏自动标记重复段落

以下是一个简单的 VBA 宏脚本，可高亮显示文档中重复的段落：

Sub HighlightDuplicateParagraphs()
    Dim para As Paragraph
    Dim dict As Object
    Set dict = CreateObject("Scripting.Dictionary")
    
    For Each para In ActiveDocument.Paragraphs
        Dim text As String
        text = Trim(para.Range.Text)
        If text <> "" Then
            If dict.Exists(text) Then
                para.Range.HighlightColorIndex = wdYellow
            Else
                dict.Add text, 1
            End If
        End If
    Next para
End Sub

使用步骤：

1. 按 Alt + F11 打开 VBA 编辑器。
2. 插入新模块，粘贴上述代码。
3. 运行宏，重复段落将被黄色高亮。

方法三：复制到 Excel 中去重后返回

适合结构化文本（如列表）：

1. 将 Word 内容复制到 Excel 每行一个单元格。
2. 使用 Excel 的“删除重复项”功能（数据 → 删除重复项）。
3. 将结果复制回 Word。

你也可以使用在线工具辅助转换，例如：

注意事项

• 宏仅对完全相同的段落有效（包括空格和标点）。
• 建议先备份文档再运行宏。
• 对于中文长文本，可能需结合人工校对。