用VB将WORD文档（或其他的二进制数据）生成xml文件并互相转换[1]

用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"