标题: 在access中用vba怎样控制word书签? [打印本页] 作者: laomao 时间: 2006-11-9 09:04 标题: 在access中用vba怎样控制word书签? 最近见到一种报表解决方案:建立一个word模版文件(.dot),建立书签.打印时,按照此模版格式生成word文件,其中的各书签自动替换成相应的数据.这种方法的好处是可以对打印的格式进行更多的控制,打印出的东西较美观.只是不知道用vba怎样控制word书签?,关于word的vba的资料好像很少.<BR/><BR/>作者: wuaza 时间: 2006-11-9 16:36
首先在word模板"abc.dot"中建立一个名为"line"的书签。
dim appWord as new Word.Application
With appWord
.documents.add "c:\abc.dot"
.selection.goto wdgotobookmark,name:="line"
.visible=true
end with
'循环取出数据库中的记录，插入到文档的书签位置。
do until rst.eof
appword.selection.typetext rst("字段名")
rst.movenext
loop