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

[入库:2005年8月18日] [更新:2007年3月24日]

本文简介:选择自 soho_andy 的 blog

            

    wordtemps.selection.goto wdgotobookmark, , , "合同编号"

    wordtemps.selection.typetext “2004000001”

 

    wordtemps.selection.goto wdgotobookmark, , , "签约单位"

    wordtemps.selection.typetext “宏大科技公司,天天科技公司

 

    wordtemps.selection.goto wdgotobookmark, , , "签约地址"

    wordtemps.selection.typetext “北京中关村大厦

 

 

    wordtemps.selection.goto wdgotobookmark, , , "签约时间"

    wordtemps.selection.typetext fromat(now, "yyyy-mm-dd")

 

    strsql = "select * from matrixs"

    adors.open strsql, cn, adopenkeyset, adlockoptimistic

    rec = adors.recordcount

   

    if rec < 1 then

        msgbox "无商品记录!", vbokonly, "提示"

本文关键:WORD 模版 数据库 合同 VBA
 

本站最佳浏览方式为 分辨率 1024x768 IE 6.0(或更高版本的 IE浏览器)

go top