方法二：使用"突出显示重复项"宏（进阶版）
通过VBA宏可以创建一个自动检测重复词语的工具，让Word自动标记文档中出现多次的词语。
创建宏的步骤：
- 按 Alt + F11 打开VBA编辑器
- 插入新模块
- 粘贴以下代码
- 运行宏
// Word VBA宏：检测重复词语并高亮显示
Sub HighlightDuplicates()
Dim wordDict As Object
Set wordDict = CreateObject("Scripting.Dictionary")
Dim rng As Range
Set rng = ActiveDocument.Content
Dim word As String
Dim wordRange As Range
' 遍历文档中的每个单词
For Each wordRange In rng.Words
word = Trim(LCase(wordRange.Text))
' 清理标点符号
word = Replace(word, ".", "")
word = Replace(word, ",", "")
word = Replace(word, "，", "")
word = Replace(word, "。", "")
If Len(word) > 1 Then ' 忽略单个字符
If wordDict.Exists(word) Then
wordRange.HighlightColorIndex = wdYellow ' 高亮已存在的词
Else
wordDict.Add word, 1
End If
End If
Next wordRange
MsgBox "重复检测完成！共找到" & wordDict.Count & "个不同词语。", vbInformation
End Sub
注意：使用宏前请先保存文档。此宏会将重复出现的词语标记为黄色高亮，便于您检查和修改。