VBA解析复合文档01——实现的功能

'解析复合文档，获取复合文档文件信息'ir         一个实现了IReadWrite接口的类'Return     返回出错信息Function Parse(ir As IReadWrite) As String

'读取某个数据流'dir_name   需要读取的文件名称，是复合文档中的文件名称'RetBytes   返回的数据Byte数组'Return     返回出错信息Function GetStream(dir_name As String, RetBytes() As Byte) As String

'获取所有Stream，并保存为文件'SavePath   保存文件的路径'Return     返回出错信息Function GetAllStream(SavePath As String) As String

'改写数据流'dir_name   需要被改写的文件名称，是复合文档中的文件名称'WriteBytes 需要改写为的数据Byte数组'Return     返回出错信息Function ReWriteStream(dir_name As String, WriteBytes() As Byte) As String