XMLCreate

Public Const xml2010 = "http://schemas.microsoft.com/office/2009/07/customui"

Public Sub CreateXml(ByVal output_path As String)
    Dim XML As MSXML2.DOMDocument
    Dim xmlItem As MSXML2.IXMLDOMNode
    Dim xmlAttr As MSXML2.IXMLDOMAttribute
    Set XML = New MSXML2.DOMDocument
    XML.async = False
    XML.SetProperty "SelectionLanguage", "XPath"

    ' データ作成
    XML.appendChild XML.createProcessingInstruction("xml", "version='1.0' encoding='UTF-8'")
    Set xmlItem = XML.appendChild(XML.createElement("ribbon"))

    Set xmlItem = xmlItem.appendChild(XML.createElement("customUI"))
    Set xmlAttr = XML.createAttribute("xmlns")
    xmlAttr.NodeValue = xml2010
    Set xmlItem = xmlItem.Attributes.setNamedItem(xmlAttr)
   
    ' 保存
    XML.Save output_path
   
End Sub