PowerPoint中可一键批量修改字体：一、用“替换字体”功能统一替换所有文本；二、通过“幻灯片母版”设置确保新增及现有标题正文同步更新；三、运行VBA宏强制遍历并重设所有Shape中的文本字体。
如果您在PowerPoint中需要统一修改整个演示文稿的字体样式，但逐页手动调整耗时费力，则可以通过内置功能实现一键批量替换所有文本字体。以下是具体操作步骤：
成品ppt在线生成，百种模板可供选择☜☜☜☜☜点击使用；
一、使用“替换字体”功能
PowerPoint提供原生的“替换字体”工具，可自动扫描当前演示文稿中所有已应用的字体，并将其整体替换为指定字体，适用于标题、正文、文本框、形状内文字等绝大多数文本对象。
1、打开目标PPT文件，点击顶部菜单栏的“开始”选项卡。
2、在“编辑”功能区中，点击“替换”下拉箭头，选择“替换字体”。
3、在弹出窗口中，于“将字体替换为”下拉列表中选择“要替换的字体”（即当前使用的旧字体，如“宋体”或“微软雅黑”）。
4、在“替换为”下拉列表中选择“新字体”（如“思源黑体”或“HarmonyOS Sans”）。
5、点击“替换”按钮，系统将立即更新幻灯片母版、版式、占位符及所有已插入文本框中的字体。
二、通过幻灯片母版统一修改
修改母版可确保后续新增幻灯片及占位符文本默认采用新字体，同时覆盖大部分已有页面的标题与正文格式，尤其适用于基于母版创建的规范型PPT。
1、点击顶部菜单栏的“视图”选项卡，选择“幻灯片母版”。
2、在左侧缩略图窗格中，选中最上方的主母版幻灯片（通常编号为1，包含默认标题和正文占位符）。
3、单击母版中的标题占位符，在“开始”选项卡中设置所需字体、字号与颜色。
4、再单击母版中的正文占位符，同样设置一致的新字体样式。
5、关闭母版视图，返回普通视图后，所有基于该母版的幻灯片标题与正文将自动更新为新字体。
三、利用VBA宏批量重设文本字体
当PPT中存在大量脱离母版控制的独立文本框、艺术字或嵌入对象内文字时，手动或母版方式可能遗漏部分文本，此时可通过运行VBA脚本强制遍历并重设全部Shape中的TextFrame文字字体。
1、按Alt + F11打开VBA编辑器，点击“插入” → “模块”。
2、在新模块窗口中粘贴以下代码：
Sub ReplaceAllFonts()
Dim sld As Slide, shp As Shape
For Each sld In ActivePresentation.Slides
For Each shp In sld.Shapes
If shp.HasTextFrame Then
If shp.TextFrame.HasText Then
shp.TextFrame.TextRange.Font.Name = "微软雅黑"
End If
End If
Next shp
Next sld
End Sub
3、将代码中“微软雅黑”替换为实际需设置的目标字体名称（注意使用系统已安装字体的准确中文名）。
4、按F5键运行宏，脚本将逐页扫描每个图形对象，对所有含文本的Shape执行字体赋值。
