菜鸟问题请教高手，我的这个关于WORD合并按钮事件代码那里有问题。。

flywolk

我自己是做了个用WORD文档的合并域打印报表的。。
在从OFFICE链接做的用WORD合并出来的就可以打出来先对应记录的WORD格式的报表

用从网上找到的按钮事件的代码打出来每次在各个WORD域的位置就出现“错误！数据源的域名记录中找不到合并域。”
请教各位高手，怎么解决，，菜鸟先在这里谢谢了
按钮的代码：
Option Compare Database
Option Explicit
    Private Sub Command32_Click()
    On Error GoTo Err_Command32_Click
    Dim WORDAPP As Object
    Dim activedocument As Variant
    Dim documents As Variant
    Set WORDAPP = CreateObject("Word.Application")
    WORDAPP.Visible = True
    Set documents = WORDAPP.documents
    documents.Open "c:/gd/gd.doc"
    Set activedocument = WORDAPP.activedocument
Exit_Command32_Click:
       Exit Sub
Err_Command32_Click:
      MsgBox Err.Description
      Resume Exit_Command32_Click
    End Sub
[em24]

[此贴子已经被作者于2004-3-1 12:23:55编辑过]

flywolk

我是菜鸟，，大家帮帮忙啊，，

flywolk

怎么没人理我啊，急需，各位高手，是不是我的问题太菜了，，，

flywolk

不好意思，是我数据源没设置好，，，现在已经搞定。。。