ツール→参照制約→Microsoft XML, v?.0を選択して追加(http://www.microsoft.com/downloads/details.aspx?FamilyID=993c0bcf-3bcf-4009-be21-27e85e1857b1&DisplayLang=ja)
Dim xDoc As MSXML2.DOMDocument ' DOM Parserオブジェクトを生成する Set xDoc = CreateObject("Microsoft.XMLDOM") Call xDoc.setProperty("SelectionLanguage", "XPath") ' ファイルが完全に読み込まれるまで、パーサーはコードにコントロールを返さない xDoc.async = False xDoc.validateOnParse = False xDoc.Load("xmlファイルのフルパス") Dim root As IXMLDOMElement Set root = xDoc.documentElement Dim model As IXMLDOMNode Call xDoc.setProperty("SelectionNamespaces", "xmlns:uml=""http://www.eclipse.org/uml2/1.0.0/UML""") model = root.selectSingleNode("//uml:Model") Dim ownedMembers As IXMLDOMNodeList Call xDoc.setProperty("SelectionNamespaces", "xmlns:xmi=""http://www.omg.org/XMI""") ' ドキュメント全体から「xmi:type」属性が「uml:Class」のownedMember要素をすべて取得する Set ownedMembers = root.selectNodes("//ownedMember[@xmi:type = ""uml:Class""]")