怎么在WPS演示中批量修改字体同时锁定原格式？
功能定位：为什么“批量改字体”会踩坑
在 WPS 演示里，批量修改字体同时锁定原格式的核心矛盾是：字体属于字符属性，而颜色、行距、缩进、动画属于段落或对象属性。一旦操作顺序错误，极易把精心调好的渐变字色或 0.8 行距一并洗掉。官方在 2026 春季版中仍保留三条独立通路——“替换字体”“幻灯片母版”“VBA 宏”，每条通路对格式的“侵入度”不同，先弄清边界再动手，可省回 30 分钟人工逐页校对。
方案 A：一键“替换字体”——最快但有限速
操作路径（桌面端）
- 打开 *.dps 文件 → 顶部菜单【开始】→ 最右侧【替换】下拉 → 选择【替换字体】。
- 在弹出窗体“原字体”列表里点选需要被替换的字体；“新字体”列表里选定目标字体。
- 勾选下方“只替换缺失字体”可跳过已安装字体，减少误伤；保持默认不勾选则全局替换。
- 点击【替换】→ 立即生效，无二次确认。
操作路径（Android/iOS）
移动端目前未提供入口，经验性观察：若文件同步到手机后字体异常，需回 Windows/macOS 端完成替换后再上传，否则只能手动逐框修改。
为什么它不会动格式
“替换字体”仅重写 OpenType 名称字段，字符级颜色、加粗、阴影、动画仍绑定在原字符上，因此不会洗掉渐变、三维旋转等效果。官方帮助文档（F1 检索“替换字体”）也注明“本功能仅修改字体族名称”。
什么时候不该用
若同一演示中故意混用两种近似字体做视觉区分（例如标题用思源黑体 Heavy，正文用思源黑体 Regular），“替换字体”会把它们视为同一字体族全部替换，导致层级消失。此时请改用母版或手动方式。
方案 B：幻灯片母版——改一次，全文档继承
入口与步骤
- 顶部【视图】→【幻灯片母版】。
- 在左侧缩略图最上方那张“大母版”里，框选对应层级（标题、正文、页脚）。
- 【开始】→【字体】下拉，直接点选新字体；可同步调整字号，但保持颜色、项目符号不动。
- 关闭母版视图，回到普通视图，所有基于该版式的幻灯片即时刷新。
锁定原格式的关键技巧
母版改字体时，不要点“重置幻灯片”按钮；否则会把手动调好的行距、色块一并拉回母版默认值。若发现局部页被“重置”误伤，可 Ctrl+Z 回退，或对该页单独【幻灯片版式】→【重新应用】以恢复母版字体但保留手动格式。
边界与副作用
母版只影响“未脱离版式”的占位符。若某页标题被人工复制成文本框，则不再受母版管控；此时需配合“选择窗格”批量选中游离文本框，再统一改字体。
方案 C：VBA 宏——一次性批量+例外过滤
启用开发者工具
WPS 演示在 Windows 版默认隐藏“开发者”选项卡，需【文件】→【选项】→【自定义功能区】→ 右侧勾选“开发者”→ 确定。
示例宏：仅替换指定字体且保留格式
Sub ReplaceFontKeepFormat()
Dim sld As slide, shp As Shape, txtRng As TextRange, i As Long
For Each sld In ActivePresentation.Slides
For Each shp In sld.Shapes
If shp.HasTextFrame Then
If shp.TextFrame.HasText Then
Set txtRng = shp.TextFrame.TextRange
For i = 1 To txtRng.Runs.Count
If txtRng.Runs(i).Font.Name = "宋体" Then
txtRng.Runs(i).Font.Name = "思源黑体"
End If
Next i
End If
End If
Next shp
Next sld
End Sub
运行后，仅“宋体”被改写，加粗、下划线、渐变填充完好无损。经验性观察：在 120 页文件内执行约耗时数十秒，因设备性能而异。
回退方案
宏不支持单步撤销，务必先【文件】→【另存为】备份。若结果不符预期，直接关闭文件不保存，再打开备份即可。
平台差异与版本前提
| 功能 | Windows | macOS | Linux | Android/iOS |
|---|---|---|---|---|
| 替换字体 | 完整支持 | 完整支持 | 完整支持 | 无入口 |
| 幻灯片母版 | 完整支持 | 完整支持 | 完整支持 | 只读视图，不可编辑母版 |
| VBA 宏 | 支持 | 不支持 | 不支持 | 不支持 |
注：Linux 版由社区包维护，功能与 Windows 基本同轨，但宏需自行安装 wps-office-mime 扩展，官方未默认打包。
验证与观测方法
- 操作前，【文件】→【属性】→【统计】记录总页数、字符数，方便比对。
- 运行任一方案后，Ctrl+F 打开“查找”→ 设置格式为“原字体”，若结果为 0 则替换干净。
- 随机抽 3–5 页检查渐变、三维旋转、动画是否丢失；若出现色块变灰，即说明误动格式，应立即撤销。
适用／不适用场景清单
- 适用：企业模板统一、学校答辩模板、政府公文 OFD 转演示前的字体合规。
- 不适用：设计师刻意混用多款字体做视觉层级；含大量内嵌 3D 模型文字（模型字体需在建模软件内改）。
- 慎用：多语言混排文件，若新字体对西里尔或希腊文支持不完整，会出现□□□。
最佳实践 5 条速查表
- 改前备份：用“另存为”生成 v1.0，命名带日期。
- 先母版后游离：优先用母版统一占位符，再用“选择窗格”补改游离文本框。
- 字体嵌入选项：若文件需外发，【选项】→【保存】→ 勾选“将字体嵌入文件”，防止对方无字体。
- 例外页打标签：对需保留原字体的页面，在备注写“KEEP-FONT”，方便宏里跳过。
- 移动端只读检查：发上云后用手机快速翻页，肉眼确认无□□□即算验收通过。
FAQ：必须用 Schema.org 标记
替换字体后动画消失怎么办？
动画绑定在形状而非字体，理论上不会消失。若真丢失，99% 是因为误点了“重置幻灯片”。立即 Ctrl+Z 或重新应用动画即可。
Mac 版找不到 VBA 怎么办？
WPS 演示 macOS 版暂不支持 VBA，请用“替换字体”或“母版”方案；若需批量，可借双系统或远程到 Windows 处理。
能否只替换粗体部分的字体？
可以。用 VBA 把判断条件改成 If txtRng.Runs(i).Font.Bold = msoTrue 即可，母版和替换字体无法做字符级过滤。
收尾：下一步行动
读完本文，你已掌握 WPS 演示中批量修改字体同时锁定原格式的三条官方路径与对应边界。立刻打开手头文件，按“备份→母版→游离文本框→验证”四步跑一遍，10 分钟内即可交稿。若文件超过 200 页且含多语言，建议直接用 VBA 方案并嵌入字体，避免来回传输出错。下次再遇到“字体统一”需求，不必逐页手动，把这篇文章加入浏览器书签，按图索骥即可。
