Sub testxmladd()
Dim i As Long
  For i = ActiveDocument.CustomXMLParts.Count To 4 Step -1
     ActiveDocument.CustomXMLParts(i).Delete
  Next
  'Add a part with Prefixed namespace:
  ActiveDocument.CustomXMLParts.Add XML:= _
        "<RCDP xmlns:a=""AAAAA"">" & _
        "<a:arcprop id=""HeadingVisibilityP"">" & _
        "<a:visibility>True</a:visibility>" & _
        "<a:enabled>True</a:enabled>" & _
        "</a:arcprop>" & _
        "<a:arcprop id= ""HeadingVisibilityS"">" & _
        "<a:visibility>False</a:visibility>" & _
        "<a:checked>True></a:checked>" & _
        "</a:arcprop>" & _
        "</RCDP>"
  'Add a part with default namespace (not prefixed).
  ActiveDocument.CustomXMLParts.Add XML:= _
        "<RCDP xmlns=""BBBBBBB"">" & _
        "<arcprop id=""HeadingVisibilityA"">" & _
        "<visibility>True</visibility>" & _
        "<enabled>True</enabled>" & _
        "</arcprop>" & _
        "<arcprop id= ""HeadingVisibilityR"">" & _
        "<visibility>False</visibility>" & _
        "<checked>True></checked>" & _
        "</arcprop>" & _
        "</RCDP>"
   ActiveDocument.CustomXMLParts.Add XML:= _
        "<RCDP xmlns=""CCCCCCCC"" xmlns:a=""DDDDDDDDD"">" & _
        "<arcprop id=""HeadingVisibilityA"">" & _
        "<visibility>True</visibility>" & _
        "<enabled>True</enabled>" & _
        "</arcprop>" & _
        "<arcprop id= ""HeadingVisibilityR"">" & _
        "<visibility>False</visibility>" & _
        "<checked>True></checked>" & _
        "</arcprop>" & _
        "</RCDP>"
  MsgBox ActiveDocument.CustomXMLParts(4).NamespaceURI 'Returns and empty string because there is no default namespace associted with the part.
  MsgBox ActiveDocument.CustomXMLParts(5).NamespaceURI
  MsgBox ActiveDocument.CustomXMLParts(6).NamespaceURI
  MsgBox ActiveDocument.CustomXMLParts(4).NamespaceManager.Item(1).NamespaceURI
  MsgBox ActiveDocument.CustomXMLParts(5).NamespaceManager.Item(1).NamespaceURI
  MsgBox ActiveDocument.CustomXMLParts(6).NamespaceManager.Item(1).NamespaceURI
  MsgBox ActiveDocument.CustomXMLParts(6).NamespaceManager.Item(2).NamespaceURI
  
  Dim oCPM  As CustomXMLPrefixMappings
  Set oCPM = ActiveDocument.CustomXMLParts(6).NamespaceManager
  oCPM.AddNamespace "xs", "EEEEEEEEEE"
  For i = 1 To oCPM.Count
    MsgBox oCPM.Item(i).Prefix & " " & oCPM.Item(i).NamespaceURI
  Next i
End Sub