在access中用vba怎樣控制word書簽?

laomao

最近見到一種報表解決方案:建立一個word模版文件(.dot),建立書簽.打印時,按照此模版格式生成word文件,其中的各書簽自動替換成相應的數(shù)據(jù).這種方法的好處是可以對打印的格式進行更多的控制,打印出的東西較美觀.只是不知道用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

'循環(huán)取出數(shù)據(jù)庫中的記錄，插入到文檔的書簽位置。
do until rst.eof
    appword.selection.typetext rst("字段名")
    rst.movenext
loop

laomao

多謝！多謝！

tz-chf

也可以不用書簽,自己規(guī)定一下標志更方便,如[username],等等,把標志替換為字段內(nèi)容.

lpy1177

留個名字!

回去再漫漫讀!