在撰写或校对长篇文档时,常常会不小心输入重复的段落或句子。Microsoft Word 本身没有内置“自动标出重复内容”的功能,但我们可以借助其查找与替换功能配合格式设置,实现手动高亮重复内容。若需自动化操作,则可使用简单的 VBA 宏脚本。
方法一:使用“查找”功能手动标橙
- 选中你怀疑重复的文本(例如一段话)。
- 按
Ctrl + H打开“查找和替换”窗口。 - 点击“更多”展开选项,勾选“突出显示所有在该文档中找到的项目”。
- 点击“查找全部”,Word 会自动高亮所有匹配内容。
- 你可以再手动将高亮颜色改为橙色:选中文本 → “开始”选项卡 → “文本突出显示颜色” → 选择橙色。
方法二:使用VBA宏自动标橙重复段落(进阶)
以下是一个简单 VBA 脚本示例,可自动检测并标橙重复的段落(适用于 Word 2016 及以上版本):
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 text <> "" And text <> vbCr Then
If dict.Exists(text) Then
para.Range.HighlightColorIndex = wdYellow ' 可改为橙色需自定义
Else
dict.Add text, 1
End If
End If
Next para
End Sub
⚠️ 注意:Word 默认高亮颜色不包含橙色,如需真正“橙色”,需改用字符底纹或通过“字体颜色+底色”组合实现。
小贴士
- 对于更复杂的重复检测(如近义句、语义重复),建议使用专业查重工具。
- 定期保存文档,避免运行宏时出现意外。
- 启用“开发工具”选项卡后,才能插入和运行 VBA 宏。