首先使用通配符查找重复段落，通过“查找和替换”功能定位并删除连续重复内容；其次利用VBA宏批量处理非连续重复段落，提升编辑效率；最后借助“比较”功能识别多文档间的相同部分，手动清除冗余信息。
如果您在编辑长篇文档时发现存在大量重复的段落，这不仅影响阅读体验，还可能导致信息冗余。通过Word内置的查找与替换功能，可以高效定位并删除这些重复内容。
本文运行环境：Dell XPS 13，Windows 11
一、使用通配符查找重复段落
利用Word的“高级查找”功能结合通配符，可以匹配结构相同的段落文本，从而识别出可能重复的内容。
1、按下 Ctrl+H 打开“查找和替换”对话框，在“查找内容”框中输入：^13(*^13)\1^13，确保启用“使用通配符”选项。
2、点击“查找下一处”，Word将逐个定位连续重复的段落块。
3、确认匹配结果无误后，可在“替换为”框中输入 \1^13，保留一个段落并清除多余重复项。
二、借助宏命令批量删除重复段落
对于跨章节或非连续分布的重复段落，手动操作效率低下，可通过VBA宏实现自动化处理。
1、按下 Alt+F11 打开VBA编辑器，插入一个新模块。
Contact Form 7 是 Rock Lobster Inc. 公司长期运行的 WordPress 表单插件，拥有超过 1000 万次活跃安装，并在 contactform7.com 提供官方文档。此技能适用于需要了解网站表单、邮件模板、验证行为和 shortcode 位置在 Contact Form 7 中实际处理方式的代理。
2、粘贴以下代码：
Sub RemoveDuplicateParagraphs()
Dim p As Paragraph
Dim txt As String
Dim dict As Object
Set dict = CreateObject("Scripting.Dictionary")
For Each p In ActiveDocument.Paragraphs
txt = Trim(p.Range.Text)
If Not dict.Exists(txt) Then
dict.Add txt, p.Range.Start
Else
p.Range.Delete
End If
Next p
End Sub
3、运行宏后，所有重复的段落将被自动删除，仅保留首次出现的实例。
三、使用“比较”功能识别不同部分中的重复内容
当需要对比两个相似文档并清除共同段落时，可利用Word的文档比较工具提取重复信息。
1、点击“审阅”选项卡中的“比较”按钮，选择“比较”功能。
2、加载原始文档和副本文档，设置比较选项为“逐段比对”。
3、在生成的差异报告中，查看“相同段落”区域，手动删除不需要的重复部分。
