Word删除重复内容

在日常办公中，我们常常会遇到Word文档中存在大量重复内容的问题，比如复制粘贴导致的重复段落、导入数据产生的重复行等。本文将介绍几种实用方法，帮助您快速删除Word中的重复内容。

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

1. 按下 Ctrl + H 打开“查找和替换”对话框。
2. 在“查找内容”中输入重复的文字，在“替换为”中留空或输入一次该文字。
3. 点击“全部替换”即可批量删除重复项。

方法二：使用通配符高级查找（适用于重复段落）

1. 打开“查找和替换”对话框（Ctrl + H）。
2. 点击“更多” → 勾选“使用通配符”。
3. 在“查找内容”中输入：
([!^13]@^13)\1+
4. “替换为”输入：
\1
5. 点击“全部替换”，可删除连续重复段落。

方法三：使用VBA宏自动去重（推荐用于复杂文档）

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

Sub RemoveDuplicateParagraphs()
    Dim para As Paragraph
    Dim dict As Object
    Set dict = CreateObject("Scripting.Dictionary")
    
    For Each para In ActiveDocument.Paragraphs
        Dim txt As String
        txt = Trim(para.Range.Text)
        If txt <> "" And Not dict.Exists(txt) Then
            dict.Add txt, 1
        ElseIf dict.Exists(txt) Then
            para.Range.Delete
        End If
    Next para
End Sub

3. 运行宏即可自动删除重复段落（保留首次出现的内容）。

注意事项

- 操作前请务必备份原始文档。
- 通配符方法对格式敏感，建议先清除多余空格或换行。
- VBA方法适用于段落级去重，如需行级或词语级去重，需调整代码逻辑。