在access中用vba怎样控制word书签?

laomao

最近见到一种报表解决方案:建立一个word模版文件(.dot),建立书签.打印时,按照此模版格式生成word文件,其中的各书签自动替换成相应的数据.这种方法的好处是可以对打印的格式进行更多的控制,打印出的东西较美观.只是不知道用vba怎样控制word书签?,关于word的vba的资料好像很少.<BR/><BR/>

wuaza

首先在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

laomao

多谢！多谢！

tz-chf

也可以不用书签,自己规定一下标志更方便,如[username],等等,把标志替换为字段内容.

lpy1177

留个名字!

回去再漫漫读!