如何快速删除Word文档中的所有重复词语？

方法1：使用VBA宏一键批量处理 #

这是最高效的方案，无需预设重复词列表，自动遍历文档清理所有连续重复的词语：

1. 打开目标Word文档，按下Alt + F11打开VBA编辑器
2. 右键左侧的文档对象，选择「插入」→「模块」
3. 将以下代码粘贴到模块窗口中：

Sub RemoveConsecutiveDuplicates()
    Dim rng As Range
    Set rng = ActiveDocument.Content
    With rng.Find
        .ClearFormatting
        .Replacement.ClearFormatting
        .Text = "([!^13^t ]@) \1"
        .Replacement.Text = "\1"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchWildcards = True
        .Execute Replace:=wdReplaceAll
    End With
    MsgBox "连续重复词语清理完成", vbInformation
End Sub

4. 按下F5运行宏，或返回Word界面，通过「开发工具」→「宏」找到该宏执行即可

代码说明：利用Word通配符匹配任意连续重复的词语（排除换行、制表符），自动将重复部分替换为单个词，一次处理所有重复情况。

方法2：高级查找替换（无需代码） #

若不想使用宏，可通过Word的通配符查找替换功能批量处理，无需手动列出重复词：

1. 按下Ctrl + H打开「查找和替换」对话框
2. 点击「更多」按钮，勾选「使用通配符」选项
3. 在「查找内容」输入框中填入：([!^13^t ]@) \1
4. 在「替换为」输入框中填入：\1
5. 点击「全部替换」即可一次性清除所有连续重复的词语

内容的提问来源于stack exchange，提问作者Scott Davies