为什么可以读取txt 文件的内容, 不可以读取doc 文件的内容, 要做到这一点应该怎样做?

Question

为什么可以读取txt 文件的内容, 不可以读取doc 文件的内容, 要做到这一点应该怎样做? 
下面的代码可以把txt 文件的内容读出, 但是若把txt 改为doc  ,  也可以读取doc 文件,但显示出来的是乱码. Option Explicit
Private fs As Variant
Private a As VariantPrivate Sub Command1_Click()
Dim k As String
Open (Dir1.Path + "\" + File1.FileName) For Input As 1#Line Input #1, k
MsgBox (k)
Close 1#
End SubPrivate Sub Dir1_Change()
File1.Path = Dir1.Path
File1.FileName = "*.txt"End SubPrivate Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End SubPrivate Sub Form_Load()
File1.FileName = "*.txt"
end sub

Answer 1

要读取doc文档，用复合文档可以

Answer 2

什么是复合文档?　我用richtextbox 也读不出

Answer 3

换控件吧，记得好像用WebBrowser也可以WebBrowser1.Navigate "你的文档.doc"

Answer 4

Word文档有自己的格式，不是文本存储的

Answer 5

请问除了WebBrowser还有什么控件 可以读取doc 文档

Answer 6

DOC 不是文本文件拉.
你可以用二进制方式打开他
然后,可以用判断 ASCII码的值,过滤掉那些乱码

Answer 7

webbrowser 是用网页格式找开的，我建议你想打开这个DOC　文件　，你先装一个WORD　，这样你就可以引用他的格式　了。有一个
 Set ex = CreateObject("excel.application")
   Set exwbook = ex.workbooks.Open("" & App.Path & "\你的EXCEL文档")　　
 这样可以打开一个EXCEL文档　。方法和WORD　一样的。
只是在后台打开，全文贴来你的文本档里即可

Answer 8

楼上兄弟 
出现不能创建对象错误. 
调试时发现下面的东西不能调试通过
Set appXOffice = CreateObject("XOffice.Application")

Answer 9

word文档不是普通的文本文件格式
open 方法只提供了简单的文件访问功能 
要访问doc用XOffice.Application吧

Answer 10

看来最好的方法还是用插入ole 控件吧?

Answer 11

引用Microsoft Word 9.0 Object Library
Dim appWord As Word.Application
Set appWord = CreateObject("Word.Application")

Answer 12

弹出错误: activex 部件不能创建对象

Answer 13

要先在工程-〉引用Microsoft Word 9.0 Object Library
Private Sub Command1_Click()
Set wrdApp = New Word.Application           '写word文档
With wrdApp
'Show Word
.Visible = True
'Create New Document
.Documents.Add
'Add text to the document
.ActiveDocument.Content.Text = "Hi"
.ActiveDocument.Content.Text = "This is a test example"
End With
End SubPrivate Sub Command2_Click()
 Dim sFileName, sContent, sPartContent As String   '打开word文档
    Dim wrdApp As Object
    Dim k As String
    CommonDialog1.ShowOpen
    If Err <> 0 Then Exit Sub
    sFileName = CommonDialog1.FileName
    If sFileName = "" Then Exit Sub
    Set wrdApp = CreateObject("Word.Application")
    wrdApp.Visible = True
    wrdApp.Documents.Open (sFileName)
    sContent = wrdApp.ActiveDocument.Content
End Sub