VBA中删除XML节点及子节点报错438，如何解决？

问题根源 #

你混淆了两套完全独立的XML对象模型：

• CustomXMLNode是Office对象模型（如Word/Excel的自定义XML部件）中的类型，仅适用于操作Office文档内嵌的XML数据。
• 你当前使用的MSXML2.DOMDocument.6.0属于MSXML DOM对象模型，它返回的节点类型是IXMLDOMElement，这个对象根本没有Delete方法，所以触发438错误。

正确解决方法（针对MSXML加载外部XML场景） #

MSXML DOM的标准删除方式是通过父节点调用removeChild方法，修改后的代码如下：

Set xmlfile = CreateObject("MSXML2.DOMDocument.6.0")
xmlfile.async = False
' 若XPath包含命名空间，需添加此配置（替换为你的命名空间前缀和地址）
xmlfile.SetProperty "SelectionNamespaces", "xmlns:ns='http://你的XML命名空间'"

If Not xmlfile.Load("你的XML文件完整路径") Then
    MsgBox "xml load error"
    Exit Sub
End If

Set PVar = xmlfile.SelectSingleNode("目标节点的XPath表达式")
If Not PVar Is Nothing Then
    ' 通过父节点删除当前节点
    PVar.ParentNode.RemoveChild PVar
    ' 保存修改后的XML文件
    xmlfile.Save "修改后要保存的XML路径"
Else
    MsgBox "未找到目标节点"
End If

若需使用CustomXMLNode.Delete（仅适用于Office文档内嵌XML） #

如果你的需求是操作Office文档（如Word）中的自定义XML部件，而非外部XML文件，才需要用CustomXMLNode.Delete，示例代码（以Word为例）：

Dim cxp As CustomXMLPart
Dim cxn As CustomXMLNode

' 获取文档中的自定义XML部件（需指定对应命名空间）
Set cxp = ActiveDocument.CustomXMLParts.SelectByNamespace("http://你的XML命名空间").Item(1)
If Not cxp Is Nothing Then
    Set cxn = cxp.SelectSingleNode("目标节点的XPath")
    If Not cxn Is Nothing Then
        cxn.Delete ' 此时使用Delete方法有效
    End If
End If

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