Word删除重复文字

为什么需要删除重复文字？

在日常办公或写作过程中，常常会因为复制粘贴、多人协作等原因，在 Word 文档中出现重复的文字内容。这些冗余信息不仅影响阅读体验，还可能造成误解。因此，掌握删除重复文字的方法非常重要。

方法一：使用“查找和替换”功能

这是最基础但有效的方式：

1. 按 Ctrl + H 打开“查找和替换”对话框；
2. 在“查找内容”中输入你怀疑重复的词句；
3. “替换为”留空或填写一次该内容；
4. 点击“全部替换”即可。

方法二：使用VBA宏自动去重（高级）

如果你有大量重复段落或句子，可以使用以下 VBA 宏脚本自动删除连续重复行：

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

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

方法三：借助在线工具处理

如果你不熟悉 Word 高级功能，也可以先将文档内容复制到在线文本去重工具中处理，再粘贴回 Word。注意保护隐私，避免上传敏感内容。