Word查找重复项并标色

在处理长篇文档、合同或多人协作稿件时，经常会出现重复内容的问题。手动查找既费时又容易遗漏。本文将介绍如何利用 Microsoft Word 自带功能或简单宏命令，快速查找重复内容并自动标色，提高工作效率。

方法一：使用“查找”功能手动检查

  1. 按 Ctrl + H 打开“替换”窗口。
  2. 在“查找内容”中输入你怀疑重复的关键词或短语。
  3. 点击“在以下项中查找” → “主文档”，Word 会高亮所有匹配项。
  4. 手动判断是否为重复段落，并使用“突出显示”工具（开始选项卡）进行标色。

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

Word 支持使用通配符查找重复句子或段落：

  1. 打开“查找”对话框（Ctrl + F）。
  2. 点击“更多” → 勾选“使用通配符”。
  3. 输入类似 ([!^13]@)^13\1 的表达式可查找连续重复行（需根据实际调整）。
  4. 对查找到的内容手动应用高亮颜色。

方法三：使用 VBA 宏自动标色重复段落

以下是一个简单的 VBA 脚本，可自动查找并高亮相邻重复段落：

Sub HighlightDuplicateParagraphs()
    Dim para As Paragraph
    Dim prevText As String
    prevText = ""
    
    For Each para In ActiveDocument.Paragraphs
        If Trim(para.Range.Text) = Trim(prevText) And Len(Trim(para.Range.Text)) > 0 Then
            para.Range.HighlightColorIndex = wdYellow
        End If
        prevText = para.Range.Text
    Next para
End Sub

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

注意事项