需对中英文字体协同替换以实现视觉统一：一、用“替换字体”分步替换；二、通过幻灯片母版同步设定；三、应用主题字体方案绑定；四、借助vba宏精准分离替换。
如果您在制作PPT时发现中文字体与英文字体混用导致视觉不统一，例如中文为“微软雅黑”而英文为“Calibri”，影响整体排版专业性，则需对中英文字体进行协同替换。以下是针对中英文字体分别或联合控制的多种操作流程：
成品ppt在线生成，百种模板可供选择☜☜☜☜☜点击使用；
一、使用“替换字体”功能分步替换中英文字体
该方法利用PowerPoint原生字体映射机制，可分别指定中文和西文字体的替换目标，适用于已明确区分中英文文本格式的PPT，且不破坏加粗、颜色、字号等其他格式属性。
1、打开目标PPT文件，点击顶部菜单栏的“开始”选项卡。
2、在“编辑”功能组中，点击“替换”下拉箭头，选择“替换字体”。
3、在弹出的对话框中，于“将字体替换为”下拉列表选择当前使用的中文字体（如“宋体”）；于“替换为”下拉列表选择目标中文字体（如“霞鹜文楷”）。
4、点击“替换”按钮，完成全部中文字符的字体替换。
5、再次打开“替换字体”对话框，于“将字体替换为”下拉列表选择当前使用的西文字体（如“Times New Roman”）；于“替换为”下拉列表选择目标西文字体（如“HarmonyOS Sans”）。
6、点击“替换”按钮，完成全部西文字符的字体替换。
二、通过幻灯片母版同步设定中英文字体
该方法修改母版中“标题字体”与“正文字体”的中英文双语映射规则，确保所有基于该母版的文本（含新增文本框）自动应用统一的中英文字体组合，避免手动遗漏。
1、切换到“视图”选项卡，点击“幻灯片母版”进入母版编辑模式。
2、在左侧缩略图窗格中，选中最顶层的主母版（编号为1的幻灯片）。
3、依次单击母版中的“标题占位符”和“文本占位符”，在“开始”选项卡中设置中文字体（如“思源黑体 CN Bold”）。
4、右键该占位符文字，在弹出菜单中选择“字体”，在“字体”对话框中切换至“西文字体”选项卡，单独设置西文字体（如“Inter”）。
5、点击“设为默认文本字体”，使该中英双语组合成为母版默认样式。
6、点击“关闭母版视图”，返回普通视图后，所有应用该母版的幻灯片中对应文本将按设定的中英文字体同步呈现。
三、应用主题字体方案绑定中英文字体对
该方法通过自定义主题字体，将标题与正文的中文字体、西文字体分别绑定为固定组合，并保存为可复用的主题模板，适用于需跨多个PPT文件保持一致中英文字体策略的场景。
1、切换到“设计”选项卡，在“变体”组右下角点击扩展按钮展开更多设置。
2、点击“字体”下拉菜单，选择“自定义字体”。
3、在弹出窗口中，为“标题字体”设置中文字体（如“OPPOSans M”），并在其右侧“西文字体”栏输入对应西文字体（如“OPPOSans-M”）。
4、为“正文字体”设置中文字体（如“OPPOSans R”），并在其右侧“西文字体”栏输入对应西文字体（如“OPPOSans-R”）。
5、点击“保存”，为该字体对命名（如“OPPO双语主题”）。
6、返回“字体”菜单，从列表中选择刚保存的主题字体名称，点击应用，所有幻灯片立即按新主题刷新中英文字体。
四、借助VBA宏实现中英文字体精准分离替换
该方法可绕过PowerPoint界面限制，直接遍历每个文本段落（Runs），依据Unicode范围识别中文字符（\u4E00–\u9FFF）与西文字符，分别赋予不同字体，适用于混合排版复杂、存在艺术字或SmartArt内嵌文本的PPT。
1、按Alt + F11打开VBA编辑器。
2、在左侧工程资源管理器中，右键当前PPT项目，选择“插入” → “模块”。
3、在右侧代码窗口中粘贴以下脚本（以将中文替换为“霞鹜文楷”，英文替换为“HarmonyOS Sans”为例）：
Sub ReplaceChineseAndEnglishFonts()
Dim sld As Slide
Dim shp As Shape
Dim rng As TextRange
Dim run As TextRange
For Each sld In ActivePresentation.Slides
For Each shp In sld.Shapes
If shp.HasTextFrame Then
If shp.TextFrame.HasText Then
Set rng = shp.TextFrame.TextRange
For i = 1 To rng.Runs.Count
Set run = rng.Runs(i)
If IsChineseText(run.Text) Then
run.Font.Name = "霞鹜文楷"
Else
run.Font.Name = "HarmonyOS Sans"
End If
Next i
End If
End If
Next shp
Next sld
End Sub
Function IsChineseText(txt As String) As Boolean
Dim i As Long
For i = 1 To Len(txt)
If AscW(Mid(txt, i, 1)) >= &H4E00 And AscW(Mid(txt, i, 1)) IsChineseText = True
Exit Function
End If
Next i
IsChineseText = False
End Function
4、关闭VBA编辑器，返回PPT界面。
5、按Alt + F8打开宏对话框，选择“ReplaceChineseAndEnglishFonts”，点击“运行”。
