Word转PDF字体变更问题：Access-VBA代码异常排查

我们使用以下Access-VBA代码将Word文档转换为PDF：

Set w_app = CreateObject("word.application")
w_app.Documents.Open(fileName:="C:\Temp\Test.docx")
w_app.ActiveDocument.ExportAsFixedFormat "c:\Temp\test.pdf", wdExportFormatPDF, _
                                         OpenAfterExport:=False, OptimizeFor:=wdExportOptimizeForPrint, _
                                         Range:=wdExportAllDocument, From:=1, To:=1, item:=wdExportDocumentContent, _
                                         IncludeDocProps:=True, KeepIRM:=True, CreateBookmarks:=wdExportCreateNoBookmarks, _
                                         DocStructureTags:=True, BitmapMissingFonts:=True, useIso19005_1:=false

但生成的PDF中，所有使用Apercu Pro字体的文本都变为Segoe Script字体。手动通过Office Word导出则无此问题，且当Windows未安装Apercu Pro字体时，代码转换也正常。

我们已尝试以下方案：

• 修改ExportAsFixedFormat的所有参数→无效果
• 改用ExportAsFixedFormat2替代ExportAsFixedFormat→无效果
• 改用w_app.ActiveDocument.SaveAs2("c:\Temp\test.pdf", EmbedTrueTypeFonts:=False)替代ExportAsFixedFormat→无效果

内容的提问来源于stack exchange，提问作者Gener4tor