在日常办公中，我们经常需要处理大量文本，有时会遇到重复段落、句子甚至整页内容的问题。手动删除不仅耗时，还容易遗漏。本文将介绍几种在 Microsoft Word 中批量删除重复内容的高效方法。
方法一：使用“查找和替换”功能（适用于简单重复）
- 按
Ctrl + H打开“查找和替换”对话框。 - 在“查找内容”中输入可能重复的文字片段。
- “替换为”留空，点击“全部替换”即可删除所有匹配项。
- 注意：此方法适合已知重复内容的情况。
方法二：使用通配符高级查找（适用于格式化重复）
- 在“查找和替换”中点击“更多” → 勾选“使用通配符”。
- 例如，查找连续两个相同段落可用：
([!^13]@)^13\1^13（需根据实际调整）。 - 替换为：
\1^13，保留一个段落。 - 此方法适合有规律的重复结构。
方法三：借助VBA宏自动去重（推荐用于复杂场景）
对于大量无规律重复段落，可使用以下VBA脚本：
Sub RemoveDuplicateParagraphs()
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方法仅删除完全相同的段落，若存在空格或标点差异则视为不同内容。
- 对于表格或图文混排文档，建议先转为纯文本处理再还原格式。
掌握这些技巧后，你将能快速清理Word中的冗余内容，大幅提升文档处理效率！