请问怎样在用VB写的程序中用VBA实现 读取word文档中的数据

Question

请问怎样在用VB写的程序中用VBA实现 读取word文档中的数据

Answer 1

看看这个示例吧Option ExplicitPrivate Sub Command1_Click()
    TestWordContent
End SubPrivate Function TestWordContent() As Boolean
    Dim objWordApplication As Object    TestWordContent = False
   On Error GoTo GetObject_Error
    Set objWordApplication = GetObject(, "Word.Application")
   On Error GoTo 0GetObject_Error:'    MsgBox "错误 " & Err.Number & " (" & Err.Description & ") in procedure TestWordContent of Form Form1"
    If (objWordApplication Is Nothing) Then
        MsgBox "请运行WORD并打开一个文档!"
    Else
        If (objWordApplication.Documents.Count < 1) Then
            MsgBox "请在WORD中打开一个文档!"
        Else
            MsgBox objWordApplication.ActiveDocument.Content.Text
            TestWordContent = True
        End If
    End IfEnd Function

Answer 2

getobject或createobject加一些word的操作语句。