VBWORD模版數(shù)據(jù)庫來制作格式合同的方法

1、用VBWORD模版數(shù)據(jù)庫來制作格式合同的方法 步驟一、word模版制作: 在第一行是合同標(biāo)題 【書簽1合同標(biāo)題xxxxxxxx合同】 第二行 *合同編號: 【書簽2合同編號】簽約單位: 【書簽3簽約單位】簽約地址: 【書簽4簽約地址】簽約日期: 【書簽5簽約日期】.表格第一行 表格第一行第一列中插入 書簽4表格第二行.貨物名稱 數(shù)量 規(guī)格 【書簽6貨物清單】 1 / 5 實現(xiàn)代碼如下 Dim cn As New ADODB.ConnectionDim AdoRs As New ADODB.RecordsetDim WordTemps As New Word.Application Privat

2、e 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.mdbEnd Sub 開始導(dǎo)出數(shù)據(jù)Private Sub Command1_Click() Dim strSQl As String Dim REC As Integer Dim i As Integer WordTemps.Documents.Add App.Path + 貨物合同

3、.doc, False WordTemps.Selection.GoTo wdGoToBookmark, , , 合同標(biāo)題 WordTemps.Selection.TypeText “關(guān)于冬季貨物的成交合同” WordTemps.Selection.GoTo wdGoToBookmark, , , 合同編號 WordTemps.Selection.TypeText “2004000001” WordTemps.Selection.GoTo wdGoToBookmark, , , 簽約單位 WordTemps.Selection.TypeText “宏大科技公司，天天科技公司” WordTemp

4、s.Selection.GoTo wdGoToBookmark, , , 簽約地址 WordTemps.Selection.TypeText “北京中關(guān)村大廈” 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

5、1 Then MsgBox 無商品記錄！, vbOKOnly, 提示 AdoRs.Close Exit Sub Else AdoRs.MoveFirstWordTemps.Selection.GoTo wdGoToBookmark, , , 貨物清單 For i = 1 To RECWordTemps.Selection.TypeText AdoRs!名稱 WordTemps.Selection.MoveRight unit:=wdCharacter, Count:=1 右移一格 WordTemps.Selection.TypeText AdoRs!數(shù)量 WordTemps.Selection.MoveRight unit:=wdCharacter, Count:=1 右移一格 WordTemps.Selection.TypeText AdoRs!規(guī)格 AdoRs.MoveNext If AdoRs.EOF = False Then WordTemps.Selection.InsertRowsBelow 1 表格換行 End If Next i AdoRs.Close WordTemps.