VB+WORD模版+数据库来制作格式合同的方法.docxVIP

用?VB＋WORD?模版＋数据库来制作格式合同的方法 步骤一、 word?模版制作: 在第一行是合同标题??【书签?1?合同标题?xxxxxxxx?合同】 第二行 ****************************** 合同编号:?【书签?2?合同编号】 签约单位:?【书签?3?签约单位】 签约地址:?【书签?4?签约地址】 签约日期:?【书签?5?签约日期】 ..... 表格第一行 表格第一行第一列中插入?书签?4 表格第二行 ... 货物名称 数量 规格 【书签?6?货物清单】 实现代码如下 Dim?cn?As?New?ADODB.Connection Dim?AdoRs?As?New?ADODB.Recordset Dim?WordTemps?As?New?Word.Application Private?Sub?Form_Load() If?cn.State?=?1?Then cn.Close End?If cn.CursorLocation?=?adUseClient cn.Open?Provider=Microsoft.Jet.OLEDB.4.0;Data?Source=??App.Path??\db1.mdb End?Sub 开始导出数据 Private?Sub?Command1_Click() Dim?strSQl?As?String Dim?REC?As?