请教怎么读取doc文档中的文本？

[angel007955]

如果是*.txt文件可以用二进制打开方式用get读取文件中的实际字节赋值给变量，从而对其执行操作，而*.doc文件属性中的字节数大于其文件打开显示的实际字节数，请问用什么方式可以读取DOC文件里边的实际字节（而不是属性中显示的字节）并赋值到变量中，从而对文件中显示的实际字节数操作呢？

[angel007955]

请kjhzls(kjhzls)回答仔细一点好吗？
如果使用word对象可以读出在doc文件中的显示的实际字节（而不是属性当中的字节）赋给 字节变量吗？

[dgfhz]

大俠,我這有個問題幫我 看看:
Private Sub Command1_Click()
CommonDialog1.Filter = "文本文件(*.txt)|*.txt|所有文件(*.*)|*.*"
CommonDialog1.ShowOpen
Open CommonDialog1.FileName For Input As #1
Text1.Text = StrConv(Input(LOF(1), 1), vbUnicode)
Close #1
End Sub
怎老是提醒"超出文件尾"阿

[demo001]

楼上的，你是不是一打开有中文的就会错误，没中文的不会？？

[freelazy]

doc文档是Word的格式，加过密的（不是密码，是格式加过密，就是不能直接读出），要先装Word,然后借用里面的Word库（里面有Word对象，可引用之），读出来。

[freelazy]

对于实际的字节数，你可以建一个简单的doc文件，如只有一个汉字，或有一个汉字和一个英文字母自己测试一下，然后再看word对象中有没有文件长度这个属性（没试过）。

[cjlong]

特意给你写了一段
Private Sub Command1_Click()
Dim wrdobj As Word.Application
'建立一个word.application对象
Set wrdobj = CreateObject("Word.Application")
'显示word.application，即word文字处理系统界面
wrdobj.Visible = True
'在word文字处理系统中添加一个文档
Dim vardoc As Word.Document
'选择对象
Dim sel As Word.Selection

Set vardoc = wrdobj.Documents.Open("c:\aa.doc")
Set sel = wrdobj.Selection
sel.WholeStory
'放到text1中
Text1.Text＝ Selection.Text
vardoc.Close
Set wrdobj = Nothing

End Sub

[angel007955]

按照cjlong(幽谷听泉)的方法，显示‘用户定义类型未定义’。
Dim wrdobj As Word.Application
是不是有什么没有引用啊？
请大家帮我啊！！！

[vbanddelphi]

试试这个方法看可不可以从中得到一些启发！
调用两个API函数“shellexecute"和"getdesktopwindow"
Option Explicit
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Declare Function GetDesktopWindow Lib "user32" () As Long
Private Const SW_SHOWMAXIMIZED = 3

Private Sub Command1_Click()
Dim pat
pat = "c:\1.doc" '假设是你所放文件的路径
ShellExecute GetDesktopWindow(), "open", pat, pat, "C:\", SW_SHOWMAXIMIZED

[kjhzls]

在vb中使用word对象,然后打开这个文件,对这个文件进行操作,就应该得到你所想要的结果.

[angel007955]

那么如何使用word对象读出在doc文件中的显示的实际字节（而不是属性当中的字节）然后赋给 字节变量吗？（我要对DOC文件中的显示的实际字节进行加密操作的）请各位大哥哥大姐帮帮我好吗？要不老板快炒我鱿鱼拉

[kmzs]

急！

[angel007955]

如果是*.txt文件可以用二进制打开方式用get读取文件中的实际字节赋值给变量然后用PUT写回去，从而对其执行加解密操作，而*.doc文件属性中的字节数大于其文件打开显示的实际字节数那么用二进制打开方式get读文件读到的内容是属性当中显示的所有字节而不是实际显示的字节，（我要用VB对DOC文件[[即：对显示的实际字节]]进行加解密操作的），请问用什么方式可以读取DOC文件里边的实际字节（而不是属性中显示的字节）并赋值到字节变量中请各位大哥哥大姐帮帮我啊！！在线等！！！