| 网站首页 | 业界新闻 | 小组 | 交易 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
共有 1488 人关注过本帖
标题:VB6 中打开word文件并读出文件中某几行的内容,在text文本框中显示
只看楼主 加入收藏
zlm091674
Rank: 1
等 级:新手上路
帖 子:12
专家分:0
注 册:2017-4-23
结帖率:66.67%
  已结贴   问题点数:10  回复次数:7   
VB6 中打开word文件并读出文件中某几行的内容,在text文本框中显示
最近刚学习VB,想要在VB6 中打开word文件并读出文件中某几行的内容(有图片文字、字母和数字),在text文本框中显示,请教师傅们如何实现,最好有完全代码和注释,先跪谢啦!
搜索更多相关主题的帖子: 如何 图片 文本框 字母 最好 
【推荐】大型监控、工控、组态VC++./C#源码组件库2019下载!
【推荐】超50万数控、建模仿真、电力VC++/.NET图形源码库下载!
【推荐】专业CAD\GIS\业务流程VC++/C#可视化图形软件源码库下载!
2017-04-23 13:50
ictest
Rank: 2
等 级:论坛游民
帖 子:261
专家分:97
注 册:2010-2-17
  得分:5 
例如:读取c:\1.doc中的第二行的数据,赋值给text1,读取第五行的数据,赋值给text2,

程序代码:
Option Explicit
Dim wApp As New Word.Application
Dim wDoc As Word.Document
Private Sub Command1_Click()
  Set wDoc = wApp.Documents.Open("C:\1.doc")
  Dim i As Long
  Dim Data As String
  Data = ""
  For i = 1 To wDoc.Words.Count
    Data = Data & wDoc.Words.Item(i)
  Next
   Dim Arr As Variant
  Arr = Split(Data, Chr(13))
   If UBound(Arr) > 0 Then Text1.Text = Arr(1) '如果有第二行则读取第二行
   If UBound(Arr) > 3 Then Text1.Text = Arr(4) '如果有第五行则读取第五行
   wDoc.Close
  wApp.quit
  Set wDoc = Nothing
  Set wApp = Nothing

 
End Sub
2017-04-26 16:15
zlm091674
Rank: 1
等 级:新手上路
帖 子:12
专家分:0
注 册:2017-4-23
  得分:0 
先谢谢师傅啦,我试试看!
2017-04-26 19:20
ictest
Rank: 2
等 级:论坛游民
帖 子:261
专家分:97
注 册:2010-2-17
  得分:0 
其实这些网上都有,自己查查、学学、改改,这样学的更快,不要动不动就张口问,这种习惯不好。
2017-04-26 23:06
zlm091674
Rank: 1
等 级:新手上路
帖 子:12
专家分:0
注 册:2017-4-23
  得分:0 
运行时报错,用户定义类型未定义,麻烦师傅了。
2017-04-29 10:52
sqbcai
Rank: 1
等 级:新手上路
帖 子:11
专家分:5
注 册:2013-6-4
  得分:5 
引用
2017-04-29 10:53
zlm091674
Rank: 1
等 级:新手上路
帖 子:12
专家分:0
注 册:2017-4-23
  得分:0 
Dim wApp As New Word.Application
2017-04-29 10:56
zlm091674
Rank: 1
等 级:新手上路
帖 子:12
专家分:0
注 册:2017-4-23
  得分:0 
wApp As New Word.Application 就是这段报错未定义。
2017-04-29 10:57
快速回复:VB6 中打开word文件并读出文件中某几行的内容,在text文本框中显示
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.448116 second(s), 8 queries.
Copyright©2004-2019, BCCN.NET, All Rights Reserved