真的很急呀!!!

Question

doc文件属性中的字节数远远大于其文件打开显示的实际字节数,用二进制打开方式get读取的内容是属性当中显示的所有字节而不是实际显示的字节，如果对所有字节经过一系列操作后然后还原,最后解密用PUT就写不回原文件啊,(（而我要用VB对DOC文件[[即：对显示的实际字节]]进行加解密操作而不是对属性当中显示的所有字节进行操作的）)，请问用什么方式可以读取DOC文件里边的实际字节（而不是属性中显示的字节）),请各位大哥哥大姐帮帮我啊！！要不老板快炒我鱿鱼的!!在线等____！！！

Answer 1

就是要加密word文件中的字串吧，我的word现在没法使，提示一下：用word对象参考：
http://expert.csdn.net/Expert/topic/2353/2353369.xml?temp=.8648035

Answer 2

就是要读取DOC里边的实际字节然后赋给BYTE变量这样一步一步进行加密的，最后还必须能够还原回去也就是要解密回去的啊，请大家回答详细一点好不好啊 ？真的好急啊！ 万分感谢！！！！！！！

Answer 3

显示doc内容
Dim wapp As New Word.Application
Dim wdoc As Word.Document
Set wdoc = wapp.Documents.Open("d:\1.doc")Debug.Print wdoc.Content