用vb將word文檔生成xml文件并互相轉換

　　1. 建立一個新的vb工程。

　　2. 引用 Microsoft XML,版本 2.0 或以上。

　　3. 在窗體form1上建立按鈕 cmdCreateXML 和 cmdGetBinary

　　代碼：

　　Option Explicit

　　Dim oDoc As DOMDocument

　　Dim DOCINPATH As String

　　Dim XMLOUTPATH As String

　　Dim DOCOUTPATH As String

　　Private Sub cmdCreateXML_Click()

　　Dim oEle As IXMLDOMElement

　　Dim oRoot As IXMLDOMElement

　　Dim oNode As IXMLDOMNode

　　DOCINPATH = App.Path & "DocInput.doc"

　　XMLOUTPATH = App.Path & "XmlOuput.xml"

　　Call ReleaseObjects

　　Set oDoc = New DOMDocument

　　oDoc.resolveExternals = True

　　注釋： Create processing instruction and document root

　　Set oNode = oDoc.createProcessingInstruction("xml", "version=注釋：1.0注釋：")

　　Set oNode = oDoc.insertBefore(oNode, oDoc.childNodes.Item(0))

　　注釋： Create document root

　　Set oRoot = oDoc.createElement("Root")

　　Set oDoc.documentElement = oRoot

　　oRoot.setAttribute "xmlns:dt", "urn:schemas-microsoft-com:datatypes"

　　2011年上半年計算機等級考試報名時間匯總

　　2011計算機等級考試二級VB考點及習題匯總

　　2011年計算機等級考試二級VB基礎教程匯總

　　2011計算機等考二級VB輔導知識技巧匯總