共有 7756 人关注过本帖
标题：[求助] 如何在VB中读取word文件，并使word文件的内容显示在文本框中。
等　级：新手上路
帖　子：28
&&问题点数：0&&回复次数：8&&&
[求助] 如何在VB中读取word文件，并使word文件的内容显示在文本框中。
如何在VB中读取word文件，并使word文件的内容显示在文本框中。各位高手，请赐教。本人通过引用word对象，也能打开文件；可是速度太慢了。还有什么其他的方法吗？
搜索更多相关主题的帖子:
等　级：新手上路
帖　子：28
word文件能用二进制方式打开，用get函数读数据吗？
等　级：新手上路
帖　子：611
Private Sub CmdOpen_Click()
Dim lsFileName As String
Dim lsPath As String
Dim lsName As String
Dim lbApp As Boolean
Dim llCount As Long
Dim wordObj As Word.Application
'浏览要添加的的文件
CommonDialog1.CancelError = True '取消报错 并且跳出执行！
On Error GoTo err_cancel
CommonDialog1.DialogTitle = "选择要打开的Word文件"
'CommonDialog1.InitDir = App.Path
CommonDialog1.Filter = "Word文件(*.doc)|*.doc"
CommonDialog1.FileName = ""
CommonDialog1.ShowOpen
lsFileName = CommonDialog1.FileName '获取完整路径
lsName = CommonDialog1.FileTitle
'只获取文件名
lsPath = Replace$(lsFileName, lsName, "")
'获取文件所在的路径
'循环进行处理！判断是否存在打开的word进程 ！
lbApp = False
Do While True
On Error Resume Next
Set wordObj = GetObject(, "Word.Application")
'用于判断已经打开的word进程
If wordObj Is Nothing Then Exit Do '如果没有找到进程那么就退出循环
If wordObj.Documents.Count = 0 Then '如果是一个空进程就释放
wordObj.Quit
Set wordObj = Nothing
For llCount = 1 To wordObj.Documents.Count
'这个应用就是，手工打开文件的应用！
If Err.Number = 0 Then '有Word已经打开
If wordObj.Documents(llCount).FullName = lsFileName Then
'判断是否有要打开的进程
Text1.Text = wordObj.Documents(llCount).Content.Text '这个是对文件的操作
GoTo endSub
lbApp = True
If llCount && 0 Then Exit Do
'所有打开的里面没有要打开的文件
If lbApp = False Then
Set wordObj = CreateObject("Word.Application") '创建word应用类
wordObj.Visible = False
wordObj.Documents.Open (lsFileName)
Text1.Text = wordObj.ActiveDocument.Content.Text
wordObj.Quit
Set wordObj = Nothing
wordObj.Documents.Open (lsFileName) '直接在原来的应用上打开文件
Text1.Text = wordObj.ActiveDocument.Content.Text
wordObj.ActiveDocument.Close (False) '关闭打开的文件'但是不关闭应用
End IfendSub:
MsgBox "成功"
Exit Suberr_cancel:
MsgBox "你点的是取消"End Sub
等　级：新手上路
帖　子：28
先谢谢下！
等　级：贵宾
威　望：42
帖　子：4881
专家分：671
以下是引用zeyidao在 11:09:10的发言：word文件能用二进制方式打开，用get函数读数据吗？
问题是，文件格式你能读懂？
等　级：论坛游民
帖　子：502
专家分：44
不错！下了！
等　级：新手上路
不错的，可是怎么就在读去了有了黑点儿了呢？楼主有解决了吗
等　级：新手上路
这个我试下来不行啊，“用户定义类型未定义”不知道哪里出错了啊
等　级：新手上路
提示文件已打开，可是根本没打开啊！
版权所有，并保留所有权利。
Powered by , Processed in 0.048610 second(s), 8 queries.
Copyright&, BCCN.NET, All Rights Reserved16:45 提问
VB6 将Word保存为PDF动作如何用 VB6语言表述
已引用 office 15.0 ，exportasfiedformat语局是从WORD VBA中录制的，但是在VB6中无法使用。求助！！！！！
Dim appword, wordbook As Object
Set appword = CreateObject("word.application")
Set wordbook = appword.Documents.Open("C:\Users\Desktop\新建 Microsoft Word 文档.docx")
wordbook.ExportAsFixedFormat OutputFileName:="C:\Users\Desktop\新建 Microsoft Word 文档.pdf", _ ExportFormat:=wdExportFormatPDF, OpenAfterExport:=False, OptimizeFor:=wdExportOptimizeForPrint, _ Range:=wdExportAllDocument, From:=1, To:=1, Item:=wdExportDocumentContent, IncludeDocProps:=True, _ KeepIRM:=True, CreateBookmarks:=wdExportCreateNoBookmarks, DocStructureTags:=True, BitmapMissingFonts:=True, _ UseISO19005_1:=False
其他相似问题
相关参考资料> vb6 怎么打开word文件并读出其中的内容
vb6 怎么打开word文件并读出其中的内容
kdskylei & &
发布时间： & &
浏览：7 & &
回复：2 & &
悬赏：0.0希赛币
vb6 如何打开word文件并读出其中的内容最近刚学习学习VB，想要在VB6 & 中打开word文件并读出文件中某行的内容，考虑
word文件的结构不能知道，只能将word文件看成对象，是用document、application之类的对象吗，请教如何实现
'引用 Microsoft Word 8.0 Object library
Dim objWD as Word.Application
Set objWD = CreateObject( &Word.Application &)
Dim objWdDoc As Word.Document
Set objWdDoc = GetObject( &c:\my documents\doc1.doc &)
'显示前 5 段内容
Me.Text1 = objWD.ActiveDocument.Range(Start :=0, End :=ActiveDocument.Paragraphs(5).Range.End).Text
'关闭 Word 文档
objWD.Quit
'释放内存
Set objWD = Nothing
ke4697988 & &
& & （0）（0）On Error GoTo err1
Dim objWD As Word.Application
Set objWD = CreateObject( &Word.Application &)
Dim objWdDoc As Word.Document
Set objWdDoc = objWD.Documents.Open( &d:\doc1.doc &)
Me.Text1 = objWD.ActiveDocument.Range(Start:=0, End:=ActiveDocument.Paragraphs(1).Range.End).Text
'关闭 Word 文档
objWD.Quit
'释放内存
Set objWD = Nothing
Debug.Print Err.Descriptionke1698 & &
& & （0）（0）
本问题标题：
本问题地址：
温馨提示：本问题已经关闭，不能解答。
暂无合适的专家
&&&&&&&&&&&&&&&
希赛网 版权所有 & &&&&&&使用VB6操作Word的总结文档
使用VB6操作Word的总结文档
将多个文档内容逐一拷贝粘贴到另一文档后面
vb控制word的类模块,查找、替换Word文档内容
如何正确杀掉word进程
嵌到我的页面
<input type="text" readonly="true" value="">
若举报审核通过，可奖励20下载分
被举报人：
redleaf1995
举报的资源分：
请选择类型
资源无法下载
资源无法使用
标题与实际内容不符
含有危害国家安全内容
含有反动色情等内容
含广告内容
版权问题，侵犯个人或公司的版权
*详细原因：
您可能还需要
精易模块[源码] V5.28
开发技术下载排行}