VBA自动化自定义主题字体XML加载失败问题排查求助

核心错误：XML命名空间格式错误 #

你的XML中命名空间http//schemas.openxmlformats.org/drawingml/2006/main缺少了冒号，正确格式应为http://schemas.openxmlformats.org/drawingml/2006/main——这是导致XML内容无效、加载时报错的主要原因。

VBA语法与编码问题 #

• VBA中变量声明不能直接赋值，需分开声明和赋值步骤
• CreateTextFile默认使用ANSI编码，而你的XML声明为UTF-8，会导致编码不匹配，需指定UTF-8编码写入文件

主题显示问题 #

加载自定义字体方案后，需重启PowerPoint才能在字体方案选择器中看到新增的「Brand Fonts」方案

修复后的完整代码 #

Sub CreateAndLoadCustomThemeFonts()
    Dim objFSO As Object
    Dim objXMLThemeFontFile As Object
    Dim strFilePath As String
    Dim strFileName As String
    Dim strFileFullPath As String
    Dim strXML As String
    
    ' 配置文件路径
    strFilePath = Environ("APPDATA") & "\Microsoft\Templates\Document Themes\Theme Fonts\"
    strFileName = "BrandFonts.xml"
    strFileFullPath = strFilePath & strFileName
    
    ' 修正命名空间的XML内容
    strXML = "<?xml version='1.0' encoding='UTF-8' standalone='yes'?>" & vbCrLf & _
             "<a:fontScheme xmlns:a='http://schemas.openxmlformats.org/drawingml/2006/main' name='Brand Fonts'>" & vbCrLf & _
             "  <a:majorFont>" & vbCrLf & _
             "    <a:latin typeface='Source Sans Pro'/>" & vbCrLf & _
             "    <a:ea typeface=''/>" & vbCrLf & _
             "    <a:cs typeface=''/>" & vbCrLf & _
             "  </a:majorFont>" & vbCrLf & _
             "  <a:minorFont>" & vbCrLf & _
             "    <a:latin typeface='Source Sans Pro'/>" & vbCrLf & _
             "    <a:ea typeface=''/>" & vbCrLf & _
             "    <a:cs typeface=''/>" & vbCrLf & _
             "  </a:minorFont>" & vbCrLf & _
             "</a:fontScheme>"
    
    ' 创建UTF-8编码的XML文件
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    ' 第三个参数True指定UTF-8编码
    Set objXMLThemeFontFile = objFSO.CreateTextFile(strFileFullPath, True, True)
    objXMLThemeFontFile.Write strXML
    objXMLThemeFontFile.Close
    
    ' 加载到当前演示文稿
    Dim objPres As Presentation
    Set objPres = ActivePresentation
    objPres.SlideMaster.Theme.ThemeFontScheme.Load strFileFullPath
    
    MsgBox "自定义主题字体已创建并加载，重启PowerPoint后可在字体方案选择器中找到「Brand Fonts」"
End Sub

修复细节说明 #

• 修正XML命名空间的http://格式，确保符合OpenXML规范
• 调整变量声明逻辑，符合VBA语法要求
• 指定UTF-8编码写入文件，避免编码不匹配导致的内容错误
• 用vbCrLf格式化XML内容，便于调试查看

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