在日常办公或写作中,我们常常会遇到文档中存在大量重复内容的情况。这些重复可能是无意复制粘贴造成的,也可能是数据整理时产生的冗余信息。Microsoft Word 并没有直接提供“一键去重”功能,但通过以下几种方法,你可以高效地筛选并删除重复内容。
适用于少量重复内容的场景:
Ctrl + F 打开“导航”窗格;适合处理大量结构化文本(如名单、标题列表等):
Ctrl + C);适用于整篇文档中重复段落的批量处理:
Alt + F11 打开 VBA 编辑器;
Sub RemoveDuplicateParagraphs()
Dim para As Paragraph
Dim dict As Object
Set dict = CreateObject("Scripting.Dictionary")
For Each para In ActiveDocument.Paragraphs
If Trim(para.Range.Text) <> "" Then
If Not dict.Exists(Trim(para.Range.Text)) Then
dict.Add Trim(para.Range.Text), 1
Else
para.Range.Delete
End If
End If
Next para
End Sub