PowerPoint无法保存：非TrueType字体及双字节字体替换报错求助

问题背景 #

保存PowerPoint时提示：

Unable to save PowerPoint presentation. Some of your fonts cannot be saved with the presentation. Reason: NotTrueType

替换字体时触发报错：

您选择了single-byte font替换double-byte font，请选择double-byte font

且无法定位问题字体的使用位置，协作环境涉及Windows 10 Pro和Ubuntu系统，使用Slidesmania模板。

步骤1：定位问题字体的使用位置 #

方法1：使用内置替换字体功能 #

打开PPT后，点击「开始」选项卡 →「替换」→「替换字体」，弹窗会列出文档中所有被使用的字体（包括母版、备注、隐藏文本中的字体），直接查看列表即可定位目标字体。

方法2：检查幻灯片母版/讲义/备注 #

• 切换到「视图」→「幻灯片母版」，逐页检查母版、版式中的文本框（模板常把默认字体设置在母版层，普通视图不可见）；
• 切换到「备注页」视图，检查所有幻灯片的备注文本；
• 查看「讲义母版」中的字体设置。

方法3：用VBA脚本遍历所有文本对象 #

如果以上方法仍找不到，运行以下VBA脚本遍历所有文本元素并输出字体信息：

Sub FindAllFonts()
    Dim sld As Slide
    Dim shp As Shape
    Dim txtrng As TextRange
    Dim i As Integer
    ' 遍历幻灯片所有形状
    For Each sld In ActivePresentation.Slides
        For Each shp In sld.Shapes
            If shp.HasTextFrame And shp.TextFrame.HasText Then
                Set txtrng = shp.TextFrame.TextRange
                For i = 1 To txtrng.Fonts.Count
                    Debug.Print "幻灯片" & sld.SlideIndex & " | 形状：" & shp.Name & " | 字体：" & txtrng.Fonts(i).Name
                Next i
            End If
        Next shp
    Next sld
    ' 遍历备注页文本
    For Each sld In ActivePresentation.Slides
        If sld.HasNotesPage Then
            For Each shp In sld.NotesPage.Shapes
                If shp.HasTextFrame And shp.TextFrame.HasText Then
                    Set txtrng = shp.TextFrame.TextRange
                    For i = 1 To txtrng.Fonts.Count
                        Debug.Print "幻灯片" & sld.SlideIndex & "备注 | 形状：" & shp.Name & " | 字体：" & txtrng.Fonts(i).Name
                    Next i
                End If
            Next shp
        End If
    Next sld
End Sub

操作步骤：

1. 打开PPT，按Alt+F11进入VBA编辑器；
2. 右键左侧「VBAProject」→「插入」→「模块」；
3. 粘贴代码后按F5运行；
4. 按Ctrl+G打开「立即窗口」，查看输出的字体详情，定位问题字体所在位置。

步骤2：解决字体替换报错 #

报错提示说明问题字体是双字节字体（如中文、日文等），必须用同类型双字节字体替换：

• 选择Windows系统内置的双字节TrueType字体，比如「微软雅黑」「宋体」「黑体」等；
• 若系统缺失目标双字节字体，可通过「控制面板→字体」添加，或从官方渠道下载合规字体安装。

替换操作：
回到「替换字体」弹窗，在「替换」下拉框选择问题字体，「替换为」下拉框选择合适的双字节TrueType字体，点击「替换」即可。

步骤3：跨系统协作兼容优化 #

针对Windows和Ubuntu跨平台协作场景，避免字体问题复发：

• 使用跨平台通用TrueType字体：优先选择Noto Sans/Serif（Google开源，全平台支持）、Arial、Calibri（Ubuntu需安装微软字体包：sudo apt install ttf-mscorefonts-installer）；
• 嵌入字体保存：点击「文件→选项→保存」，勾选「将字体嵌入文件」，选择「仅嵌入所用字符」（需确保字体允许嵌入，避免版权问题）；
• PDF格式共享：若字体兼容问题无法彻底解决，导出为PDF格式共享，确保所有平台显示一致，同时保留原PPT文件用于编辑。

内容的提问来源于stack exchange，提问作者shestakov-dev