在日常办公或写作中,我们经常会遇到文档中出现重复内容的问题。这些重复可能是无意复制粘贴造成的,也可能是格式混乱导致的。本文将为你介绍几种在 Microsoft Word 中查找和处理重复项的方法。
这是最基础的方式:
如果你希望查找**连续重复的段落**(比如两段完全一样的文字紧挨着),可以使用高级查找功能:
(*)(\1)⚠️ 注意:此方法仅适用于相邻重复项,且对复杂格式可能不准确。
对于大量文本(如名单、数据列表),可借助 VBA 脚本自动标记重复项:
Sub HighlightDuplicateLines()
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 <> "" Then
If dict.Exists(text) Then
para.Range.HighlightColorIndex = wdYellow
Else
dict.Add text, 1
End If
End If
Next para
End Sub
如果重复内容是结构化数据(如名单、编号等):