看完【access源码示例】导入导出系列——Word数据导入导出这个示例后，一直想能不能导出到多表格，这样就可以一式两份或多份了，并且可以有所针对的导出所需数据并形成相应报表了。

经过一段时间的捉摸，今天总算领悟，只需将原该示例的原代码作如下修改就可以了。

 Set objTable = objDoc.Tables(2)
    '向Word中对应表格单元格写入数据
    With objTable
        .Cell(1, 2).Range = Nz(Me.案由)
        .Cell(2, 2).Range = Nz(Me.当事人违法事实)
        .Cell(3, 2).Range = Nz(Me.立案依据)
        .Cell(4, 2).Tables(1).Cell(1, 1).Range = Nz(Me.承办人意见)
        .Cell(4, 2).Tables(1).Cell(2, 2).Range = Nz(Me.承办人签名)
        .Cell(4, 2).Tables(1).Cell(2, 3).Range = Format(Nz(Me.承办人签名日期), "yyyy年mm月dd日")
        .Cell(5, 2).Tables(1).Cell(1, 1).Range = Nz(Me.负责人意见)
        .Cell(5, 2).Tables(1).Cell(2, 2).Range = Nz(Me.负责人签名)
        .Cell(5, 2).Tables(1).Cell(2, 3).Range = Format(Nz(Me.负责人签名日期), "yyyy年mm月dd日")
        .Cell(6, 2).Range = Nz(Me.备注)
    End With

不过得将模板再原样复制一个，这就是所谓的objDoc.Tables(2)了，如果想打3份应该是可以依此类推了。

这样实现多打就可以打印同样内容不同存根的报表了。希望这篇文章对初学者能有所启发。

附   件：

word导出示例