最近刚学习VB，想要在VB6 中打开word文件并读出文件中某几行的内容（有图片文字、字母和数字），在text文本框中显示，请教师傅们如何实现，最好有完全代码和注释，先跪谢啦！

例如:读取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

先谢谢师傅啦，我试试看！

其实这些网上都有，自己查查、学学、改改，这样学的更快，不要动不动就张口问，这种习惯不好。

运行时报错，用户定义类型未定义，麻烦师傅了。

引用

Dim wApp As New Word.Application

wApp As New Word.Application 就是这段报错未定义。