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