Word自动查找重复内容

在撰写报告、论文或整理资料时，常常会不小心输入重复的内容。Microsoft Word 本身没有直接的“查重”功能，但通过一些技巧和宏命令，我们可以实现自动查找并高亮重复段落或句子。

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

1. 按 Ctrl + H 打开“查找和替换”对话框。
2. 在“查找内容”中输入你怀疑重复的词语或短语。
3. 点击“查找全部”，Word 会列出所有匹配项。

方法二：使用VBA宏自动检测重复段落

以下是一个简单的 VBA 宏脚本，可以遍历文档中的段落，并高亮显示重复内容：

Sub HighlightDuplicateParagraphs()
    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 Len(text) > 1 Then
            If dict.Exists(text) Then
                para.Range.HighlightColorIndex = wdYellow
            Else
                dict.Add text, True
            End If
        End If
    Next para
End Sub
    

使用步骤：

• 按 Alt + F11 打开 VBA 编辑器。
• 插入新模块，粘贴上述代码。
• 运行宏，重复段落将被黄色高亮。

注意事项

• 该方法对格式敏感，即使内容相同但格式不同（如加粗、换行），也可能不会被识别为重复。
• 建议在操作前备份文档，以防宏执行出错。
• 对于更复杂的查重需求（如语义重复），建议使用专业查重软件。