Word如何批量删除重复内容

在日常办公或写作过程中，Word文档中常常会出现大量重复的文字、段落甚至表格内容。手动逐条删除不仅效率低下，还容易遗漏。本文将介绍几种实用方法，帮助你快速批量删除Word中的重复内容。

方法一：使用“查找和替换”功能（适用于简单重复）

1. 按 Ctrl + H 打开“查找和替换”对话框。
2. 在“查找内容”中输入重复的关键词或短语。
3. “替换为”留空，点击“全部替换”即可删除所有匹配项。

方法二：使用通配符进行高级查找（适用于格式化重复）

1. 在“查找和替换”窗口中点击“更多”按钮。
2. 勾选“使用通配符”。
3. 例如，输入 ([!。！？])\1{1,} 可查找连续重复的非句号字符（需根据实际调整）。
4. 谨慎测试后再执行替换。

方法三：使用VBA宏自动去重（适用于段落级重复）

以下是一个简单的VBA脚本，可删除文档中重复的段落：

Sub 删除重复段落()
    Dim para As Paragraph
    Dim dict As Object
    Set dict = CreateObject("Scripting.Dictionary")
    
    For Each para In ActiveDocument.Paragraphs
        If Trim(para.Range.Text) <> "" Then
            If Not dict.Exists(Trim(para.Range.Text)) Then
                dict.Add Trim(para.Range.Text), 1
            Else
                para.Range.Delete
            End If
        End If
    Next para
End Sub
    

使用方法：按 Alt + F11 打开VBA编辑器 → 插入模块 → 粘贴代码 → 运行宏。

注意事项

• 操作前请务必备份原始文档，避免误删重要内容。
• VBA方法对中文兼容性良好，但复杂格式（如表格、图文混排）可能需额外处理。
• 若文档结构复杂，建议先转换为纯文本处理后再恢复格式。