如何在界面中用按键来挂接一个WORD文档

Question

我有一个用VB做的系统，其中有一个查询界面，现在要求将查询出来的内容在挂接的
一个WORD文档里的适当位置显示出来。我是一个新手，请哪位高手帮我一下告诉我这段程序的源代码。多谢！！！！！！！！！！！！！！！！！！！！！！！！

Answer 1

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As LongDim cn As New ADODB.Connection, rs As New ADODB.Recordset'打开
Private Sub Command2_Click()
    Dim stmCon As New Stream
    
    If rs.State = adStateOpen Then rs.Close
    rs.Open "SELECT * FROM TABLENAME", cn, adOpenForwardOnly, adLockReadOnly
    If Not rs.EOF Then
        stmCon.Type = adTypeBinary
        stmCon.Open
        stmCon.Write (rs.Fields("DOC").Value)
        stmCon.SaveToFile "C:\aa.doc", adSaveCreateOverWrite
    End If    ShellExecute Me.hwnd, "open", "C:\aa.doc", vbNullString, vbNullString, 1
End SubPrivate Sub Form_Load()
    cn.ConnectionString = "DBQ=" & App.Path & "\TelePhone.mdb;DefaultDir=" & _
        App.Path & ";Driver={Microsoft Access Driver (*.mdb)};" & _
        "DriverId=25;FIL=MS Access;ImplicitCommitSync=Yes;" & _
        "MaxBufferSize=512;MaxScanRows=8;PageTimeout=5;SafeTransactions=0;" & _
        "Threads=3;UID=ADMIN;UserCommitSync=Yes;PWD=admind1234;"
    cn.Open
    '查询字符串可以上这里查
    'http://www.connectionstrings.com/
End Sub

Answer 2

这是将查询到的整篇的WORD文档显示出来,如果要对文档进行操作,则需要通过VBA进行操作,方法如下:工程->引用->Microsoft Word 9.0 Object Library (后面为版本号)Dim wdApp as New Word.Application'具体怎么操作,可以到WORD录制宏看看.