在日常办公中,我们经常会遇到Word文档中出现大量重复内容的情况,比如重复的段落、句子、名单或表格数据。手动删除费时费力,本文将介绍几种实用方法,帮助你快速高效地删除Word中的重复项。
Ctrl + H 打开“查找和替换”对话框。⚠️ 注意:此方法适合已知具体重复内容的情况,无法自动识别未知重复段落。
如果你熟悉VBA,可以运行以下宏代码自动删除整篇文档中重复的段落:
Sub 删除重复段落()
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
📌 使用前请备份文档,并启用宏功能。