点击浏览该文件

关于从access中向WORD填写数据的问题的说明

一、问题来源：bbs/dispbbs.asp?boardID=2&ID=17414&page=1

Sub Macro1()
'
' Macro1 Macro
' 宏在 2004-8-15 由 刘小军 录制
'
    Selection.WholeStory                       '全选文本
    Selection.Copy                             '复制
    Selection.EndKey Unit:=wdStory             '将光标移到文件结尾（我是用Ctrl+End实现的）
    Selection.InsertBreak Type:=wdPageBreak    '插入分页符
    Selection.Paste                            '粘贴  
End Sub

 原本是5句代码，我分在两部分。第2部分的3句在下面的If结构里。

If K Mod 15 = 0 And K < intCount Then  '如果K到达15的倍数且小于总记录数时增加一页（等于总数的话就不加了）
    intTabCount = intTabCount + 1
    Doc.Selection.EndKey Unit:=6 'wdStory
    Doc.Selection.InsertBreak Type:=7 'wdPageBreak
    Doc.Selection.Paste
End If

代码里把参数直接用数字代替时因为只有引用了“WORD 9.0 Object Library”才能使用参数。但这样不能在安装OFFICE XP的机器上使用，降低了兼容性。

a.因为模板是每次都要使用的，而且要求里面是空的才行。所以最后会用SaveAs另存一个文件名，至于起什么名可以有很多种方法。程序里是用的日期相关的名字。

b.如果一开始就让文档显示出来，则在填写数据时页面会反复闪烁，而且填写速度很慢，所以程序里是在隐藏的状态下填写，然后再显示出来。

c.现在程序里还缺少一些错误处理的部分，有待进一步改进，也欢迎大家指正。

点击浏览该文件

这是以前写的另外一个由access在WORD里输出报表的例子，也有些不同的东西在里面，请大家参考。