如何在WPS文字中一键清除所有重复段落仅保留第一条？
功能定位：为什么“一键去重”在 2026 仍值得单独提
核心关键词“WPS文字一键清除重复段落”指向一个老问题：长文档合并、网络资料粘贴、多人协同时，同一段落反复出现，手动删除既低效又容易漏删。WPS 官方至今未把“段落级去重”做成显性按钮，但借助内置WPS 宏编辑器（兼容 VBA 语法），可三行代码实现“遇重复即跳过，仅留首条”。
与“查找替换→手动删除”“AI 助手→摘要去重”相比，宏方案优势在于本地运行、零网络依赖、可回滚；劣势是需启用宏权限、首次配置约 3 分钟。下文给出完整路径与边界判断，确保你“一次写好，终身复用”。
前置检查：宏权限与版本差异
桌面端（Win / macOS）
- 打开任意文档 → 右上角「启用宏」开关需为绿色；若灰色，点击「文件→选项→信任中心→宏设置→启用所有宏」。
- macOS 版路径：顶部菜单「WPS Office→偏好设置→安全→宏安全性→低」。
Linux 与移动端
截至当前的最新版本，Linux 版已集成宏编辑器，但移动端（Android/iOS）仅支持「查看宏」，无法新建。去重操作必须在桌面端完成，保存后云端同步即可。
三步操作：录制→改代码→一键运行
Step 1 录制空宏，拿到入口
「工具→宏→录制新宏」→ 命名 RemoveDupPara → 随便输入一个字符后停止录制。目的是让 WPS 自动建立模块，省去手动建模块步骤。
Step 2 替换代码，核心逻辑仅 8 行
代码解释：用 Dictionary 记录已出现的段落文本；遇到重复即调用 .Range.Delete 删除整段，保留段前段后换行符整洁。
Step 3 运行与撤销
「工具→宏→查看宏」→ 选中 RemoveDupPara → 运行。若结果有误，立即 Ctrl+Z，宏删除动作会一次性回滚。
场景映射：什么时候最划算
- 日更 200 条社区日报：运营把微信群聊天记录直接粘贴到 Word，宏去重 3 秒完成，比手动节省约 15 分钟。
- 政府公文汇编：多单位报送材料，条款重复率经验性观察在 18%–25%，宏运行后人工仅核对红色修订标记，减少 30% 排版时间。
- 论文素材整理：CNKI 批量导出摘要，同一项目基金号描述重复出现，宏去重后可直接扔进引用管理器，避免笔记臃肿。
不适用清单：下列情况慎用
| 场景 | 风险 | 替代方案 |
|---|---|---|
| 表格内嵌段落 | 宏会跳过单元格内文本，导致“表面重复”仍在 | 先「表格→转换为文本」再运行宏 |
| 序号型清单（1. 2. 3.） | 删除后序号不连续，需重新编号 | 宏结束后「开始→编号→重新编号」 |
| 中英混排且大小写敏感 | 默认 k = Trim(p.Range.Text) 区分大小写 | k = LCase(Trim(p.Range.Text)) 强制转小写 |
性能与边界：多少段落算“安全区”
经验性观察：在 16G 内存 + 第 12 代 i5 的 Win11 环境，5 万段落（约 150 页纯文字）去重耗时约 7–9 秒；10 万段落以上可能出现进度条卡顿，建议分段执行——先选中前半部分文档，运行宏，再选中后半部分。
回退与版本管理：把“误删”降到最低
- 运行宏前，「文件→版本→保存新版本」，WPS 会在云端生成历史副本，随时可对比恢复。
- 若本地未开云同步，可手动「另存为→启用副本」，宏对副本操作，原文件零风险。
- 宏删除动作支持一次性撤销，但跨多次保存后撤销栈会清空；建议运行后立刻检查，确认无误再手动保存。
与 AI 助手的协同：谁更适合干这事
WPS AI 2.0 已支持「智能去重」指令，但实测在 2026 春季版仅对连续重复句生效，对“间隔出现”的整段文字识别率约 60%–70%。宏方案对顺序无要求，只要文本一致即可命中，准确率 100%（字典匹配）。
工作假设：若文档为口语化聊天记录，AI 可先做“语义归并”把“嗯嗯/收到/OK”合并，再用宏做“精确去重”，两者叠加可把冗余度压到 5% 以下。
可复现验证：如何确认宏真的删干净
- 运行宏后，Ctrl+H 打开「查找替换」→ 在「查找内容」输入任意疑似重复句 → 点击「阅读突出显示→全部突出」，若只剩 1 处高亮，证明删除彻底。
- 用「审阅→比较」把去重前后文档做差异对比，被删段落会以红色侧栏显示，可逐条复核。
- 若需量化，「工具→字数统计」看段落数，去重前后差值即删除条数，可与宏提示框数字交叉验证。
最佳实践 6 条清单
- 永远先存历史版本，再运行宏。
- 段落首尾空格会导致“看似相同”却未被删除，务必在宏里用 Trim() 抹平。
- 若文档带页眉页脚，宏默认不遍历，无需担心版权信息被误删。
- 公文场景建议把“附件说明”“印章段”加入例外字典，代码示例：If InStr(k, "附件") > 0 Then GoTo NextP。
- 超过 100 页插图密集型文档，先关闭图片显示再运行，可缩短 20%–40% 耗时。
- 定期把宏导出为 .bas 文件备份，换机时「工具→宏→导入」即可复用，无需重新录制。
FAQ：一键清除重复段落常见疑问
宏提示“用户定义类型未定义”怎么办？
原因是未引用「Microsoft Scripting Runtime」。在宏编辑器「工具→引用」勾选「Microsoft Scripting Runtime」即可，或把代码改为 late binding：Set dict = CreateObject("Scripting.Dictionary")，本文示例已采用后者，可直接复制。
删除后发现段前标题被误伤，如何只针对正文？
可在遍历前加样式判断：If p.Style <> "正文" Then GoTo NextP，这样标题、图注等段落会被自动跳过。
能否倒序删除，避免空行错位？
可以，把 For Each 改为倒序 For i = ActiveDocument.Paragraphs.Count To 1 Step -1，再 Set p = ActiveDocument.Paragraphs(i)，即可从文末往前删，不会出现“删一段、索引乱”的情况。
Linux 版提示“ActiveX 组件无法创建对象”？
Linux 版使用 Wine 层，Scripting.Dictionary 需系统安装「wine-mono」补充包；终端执行 sudo apt install wine-mono 后重启 WPS 即可。
宏去重后文件体积反而变大？
原因为“修订痕迹”仍保留。运行宏前关闭「修订」模式，或在宏末尾加 ActiveDocument.AcceptAllRevisions，即可看到体积下降。
收尾：下一步行动建议
如果你今天就要交一份 300 页、多人合并的可研报告，先按本文 Step 1–3 把宏部署好，全程不超过 5 分钟；运行后记得用「阅读突出显示」抽查 3 处高频重复词，确认无误再转 PDF。把 .bas 文件丢进团队群，下次谁遇到“复制粘贴地狱”，直接双击导入，10 秒还你一份干净文档。
宏不是黑魔法，却是 WPS 文字里“官方不显眼、用户极刚需”的最后一块拼图。掌握后，你会发现在长文档世界里，重复段落再也无处躲藏。