可一键统一ppt多页字体：一、用“替换字体”功能批量更替；二、通过母版设置默认标题/正文字体，控制新增及继承样式的文本；三、运行vba宏强制替换所有文本框字体，覆盖非母版样式内容。
如果您在编辑PPT文档时发现多页幻灯片中使用了不一致的字体，手动逐页修改耗时费力，则可通过内置功能或辅助操作实现字体格式的一键统一。以下是几种切实可行的批量替换字体方法：
成品ppt在线生成，百种模板可供选择☜☜☜☜☜点击使用；
一、使用“替换字体”功能
PowerPoint提供原生的字体批量替换工具，可在不改动文本内容和排版结构的前提下，将文档中所有指定字体自动更替为选定字体。
1、点击顶部菜单栏的开始选项卡。
2、在“编辑”功能区中，点击替换下拉箭头，选择替换字体。
3、在弹出窗口的“将字体替换为”下拉列表中，选择当前文档中实际使用的字体（如“微软雅黑”）。
4、在“替换为”下拉列表中，选择目标统一字体（如“思源黑体 CN Medium”）。
5、点击替换按钮，系统将自动扫描全部幻灯片并完成字体切换。
二、通过母版统一标题与正文默认字体
修改幻灯片母版中的字体设置，可确保后续新增文本及已应用母版样式的占位符文本自动采用统一字体，实现从源头控制格式一致性。
1、点击顶部菜单栏的视图选项卡。
2、点击幻灯片母版，进入母版编辑界面。
3、在左侧缩略图窗格中，选中最顶层的主母版（编号为1的幻灯片）。
4、依次点击开始→字体→设置默认字体。
5、在弹出对话框中，分别设置标题字体和正文字体，点击确定。
6、关闭母版视图，返回普通视图后，所有继承母版样式的文本框将同步更新字体。
三、利用VBA宏批量修改文本框字体
当PPT中存在大量未套用母版样式的独立文本框（如手绘文本框、艺术字、图表内标签等），原生替换功能可能遗漏，此时可运行轻量VBA脚本实现全覆盖强制替换。
1、按Alt + F11打开VBA编辑器。
2、在左侧工程资源管理器中，右键点击当前PPT文件名，选择插入→模块。
3、在新模块空白窗口中粘贴以下代码：
Sub ReplaceAllFonts()
Dim sld As Slide, shp As Shape
Dim oldFont$, newFont$
oldFont = "华文细黑"
newFont = "微软雅黑"
For Each sld In ActivePresentation.Slides
For Each shp In sld.Shapes
If shp.HasTextFrame Then
If shp.TextFrame.HasText Then
With shp.TextFrame.TextRange.Font
If .Name = oldFont Then .Name = newFont
End If
End With
End If
End If
Next shp
Next sld
End Sub
4、将代码中oldFont和newFont的引号内字体名称分别修改为需替换的源字体与目标字体。
5、按F5运行宏，脚本将遍历全部幻灯片中的所有可编辑文本框并执行字体替换。
