用VB＋WORD模版＋数据库来制作格式合同的方法[5]

        adors.close

        exit sub

    else

        adors.movefirst

wordtemps.selection.goto wdgotobookmark, , , "货物清单"

        for i = 1 to rec

            wordtemps.selection.typetext adors!名称

            wordtemps.selection.moveright unit:=wdcharacter, count:=1 '右移一格

            wordtemps.selection.typetext adors!数量

            wordtemps.selection.moveright unit:=wdcharacter, count:=1 '右移一格

            wordtemps.selection.typetext adors!规格

            adors.movenext

            if adors.eof = false then

                wordtemps.selection.insertrowsbelow 1     '表格换行