Word怎么删除重复项

在日常办公中，我们经常需要处理大量文本内容，有时会不小心复制粘贴了重复的段落或句子。Microsoft Word 并没有直接“一键去重”功能，但通过一些技巧可以高效地删除重复内容。

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

• 按 Ctrl + H 打开“查找和替换”对话框。
• 在“查找内容”中输入你怀疑重复的文字。
• 点击“查找全部”，查看是否有多处匹配。
• 手动删除不需要的重复项。

方法二：借助 Excel 去重后再粘贴回 Word

• 将 Word 中的内容（如列表）复制到 Excel 中。
• 选中数据区域，点击【数据】→【删除重复项】。
• Excel 会自动保留唯一值，删除重复行。
• 将清理后的数据复制回 Word 即可。

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

适用于高级用户。按 Alt + F11 打开 VBA 编辑器，插入以下代码：

Sub DeleteDuplicateParagraphs()
    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

运行后，文档中重复的段落将被自动删除（注意备份原文档）。

注意事项

• 操作前建议先备份原始文档。
• 段落末尾的换行符会影响判断，确保格式一致。
• 对于表格中的重复内容，可单独复制表格到 Excel 处理。