Word VBA中CustomXMLParts检索失败及XML编码属性丢失问题

核心错误点 #

代码存在两个直接导致自定义XML部件检索失败的问题：

1. 命名空间声明逻辑错误
   你在XML根节点仅声明了带g前缀的命名空间xmlns:g='gvkv.ca/word/xmlns/glossary'，没有声明默认命名空间。这种写法下，所有不带前缀的标签（包括根节点<entries>、子节点<entry>/<item>/<defn>）都属于空命名空间，不在你指定的目标命名空间范围内，SelectByNamespace自然匹配不到任何内容。
   你之前尝试加g:前缀没生效，本质是只给子节点加了前缀，没有把根节点也改成带前缀的<g:entries>，根节点不在目标命名空间的情况下，检索方法不会返回对应部件。
2. 文档对象引用不一致
   添加自定义XML部件时你操作的是ThisDocument（存储VBA代码的文档），但检索时操作的是ActiveDocument（当前窗口激活的文档），如果运行代码时活动文档不是存储XML的目标文档，哪怕命名空间写对了也会返回0结果。

关于encoding属性被自动移除的原因 #

Word接收你传入的XML字符串后，会直接将其解析为XML DOM对象存储在文档内部，不会保留原始字符串里的XML声明段。CustomXMLPart内部存储使用和VBA字符串一致的UTF-16编码，当你调用.XML属性导出XML内容时，Word会自动生成适配内部存储格式的XML声明，默认不会携带encoding属性，这是组件的常规处理逻辑，不属于异常，也不影响XML内容的正常读写。

修正后的可运行代码 #

Sub XMLGlossary()
    Dim gloss As String
    Dim targetDoc As Document
    ' 统一文档引用，避免ThisDocument/ActiveDocument混用的问题
    Set targetDoc = ThisDocument
    
    ' 直接按命名空间清理已存在的旧术语表XML部件，比判断部件总数的逻辑更稳定
    If targetDoc.CustomXMLParts.SelectByNamespace("gvkv.ca/word/xmlns/glossary").Count > 0 Then
        targetDoc.CustomXMLParts.SelectByNamespace("gvkv.ca/word/xmlns/glossary").Delete
    End If
    
    ' 给根节点声明默认命名空间，无需前缀即可让所有子节点归属目标命名空间
    gloss = "<?xml version=""1.0"" encoding=""utf-8"" ?>" & _
      "<entries xmlns='gvkv.ca/word/xmlns/glossary'>" & _
        "<entry>" & _
          "<item>item1</item>" & _
          "<defn>defn1</defn>" & _
        "</entry>" & _
      "</entries>"
    
    targetDoc.CustomXMLParts.Add gloss
    
    ' 验证写入结果
    Debug.Print targetDoc.CustomXMLParts(targetDoc.CustomXMLParts.Count).XML
    
    ' 检索目标命名空间的部件
    Dim gnode As CustomXMLParts
    Set gnode = targetDoc.CustomXMLParts.SelectByNamespace("gvkv.ca/word/xmlns/glossary")
    Debug.Print TypeName(gnode) & ": " & gnode.Count
End Sub

运行后立即窗口会正常输出CustomXMLParts: 1，即可正常读取写入的术语表内容。

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