后台打开Word，怎样返回word中的所有数据？？并转换为二进制数据？？－在线等待

[SpaceTime]

Dim word1 As New Word.ApplicationClass
Dim word_zl As Word.Document
word_zl = word1.Documents.Open(“文件名”)
word1.Selection.WholeStory()

’如何取得Word1中的数据并转换成二进制数据？？然后保存到数据库？？

word_zl.Close()
word1.Quit()

[SpaceTime]

怎么没有回答的呀？？