vb6 怎么打开word文件并读出其中的内容

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
------解决方案--------------------
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 文档
err1:
objWD.Quit
'释放内存
Set objWD = Nothing
Debug.Print Err.Description