Word如何批量删除重复内容

在日常办公中，我们经常会遇到 Word 文档中存在大量重复段落或文字的情况。手动逐条删除不仅耗时，还容易遗漏。本文将介绍几种实用方法，帮助你高效地在 Word 中批量删除重复内容。

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

• 按 Ctrl + H 打开“查找和替换”对话框。
• 在“查找内容”中输入你要删除的重复文字。
• “替换为”留空，点击“全部替换”即可删除所有匹配项。

方法二：使用宏（VBA）自动删除重复段落

对于整段重复的内容，可借助 VBA 宏实现自动化处理：

1. 按 Alt + F11 打开 VBA 编辑器。
2. 插入新模块，粘贴以下代码：

   Sub DeleteDuplicateParagraphs()
       Dim para As Paragraph
       Dim dict As Object
       Set dict = CreateObject("Scripting.Dictionary")
       
       For Each para In ActiveDocument.Paragraphs
           If Not dict.Exists(para.Range.Text) Then
               dict.Add para.Range.Text, 1
           Else
               para.Range.Delete
           End If
       Next para
   End Sub
         

3. 运行该宏，即可自动删除文档中重复的段落。

方法三：复制到 Excel 去重后再粘回 Word

• 将内容复制到 Excel 中，每行一段。
• 使用 Excel 的“删除重复项”功能（数据 → 删除重复项）。
• 将清理后的内容复制回 Word 即可。

以上方法可根据你的实际需求选择使用。如需更高级的文档处理工具，也可以尝试在线工具辅助完成。