在access中把数据写到用word制作制作好的表格中做报表

word表格已经做好（相当于有了一个模板），Access只是往里填写字段里的信息，可用以下代码：

首先打开word模板文档，然后：

With MyWord.Documents("word文档名.doc")           

    .Tables(b).Cell(Row:=x, Column:=y).Range.Text =rs.Fields(i).Value             '这里b是文档中的表格序号（从0开始），x是表行号，y是表列号

end with

这样就可实现向word文档中的b表的x行y列填写rs.Fields(i).Value的信息。