如何在vb种调用word文档?

Question

1.用OLE控件
2.在1中将所有内容copy出来，在文本框中paste，就只有文字了。

Answer 1

1.引入Microsoft word 9.0
dim objWord as Object
Dim objWordDocument As Word.Document
on error resume next
Set objWord = GetObject(, "Word.Application")
If (objWord Is Nothing) Then
   Set objWord = CreateObject("Word.Application")
End If
Set objWordDocument = objWord.Documents.Open(Filename:=word文件)
objWord.Visible = True2.
dim objWord as Object
Dim objWordDocument As Word.Document
on error resume next
Set objWord = GetObject(, "Word.Application")
If (objWord Is Nothing) Then
   Set objWord = CreateObject("Word.Application")
End If
Set objWordDocument = objWord.Documents.Open(Filename:=word文件)
objWord.Visible = falseMsgBox objWordDocument.Content.Text'得到文字