下載本文檔
版權(quán)說明:本文檔由用戶提供并上傳,收益歸屬內(nèi)容提供方,若內(nèi)容存在侵權(quán),請進(jìn)行舉報或認(rèn)領(lǐng)
文檔簡介
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.
溫馨提示
- 1. 本站所有資源如無特殊說明,都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請下載最新的WinRAR軟件解壓。
- 2. 本站的文檔不包含任何第三方提供的附件圖紙等,如果需要附件,請聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
- 3. 本站RAR壓縮包中若帶圖紙,網(wǎng)頁內(nèi)容里面會有圖紙預(yù)覽,若沒有圖紙預(yù)覽就沒有圖紙。
- 4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
- 5. 人人文庫網(wǎng)僅提供信息存儲空間,僅對用戶上傳內(nèi)容的表現(xiàn)方式做保護(hù)處理,對用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯,并不能對任何下載內(nèi)容負(fù)責(zé)。
- 6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容,請與我們聯(lián)系,我們立即糾正。
- 7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時也不承擔(dān)用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。
最新文檔
- 成比例的模型車項目評價分析報告
- 機用皮件項目評價分析報告
- 教學(xué)儀器和設(shè)備相關(guān)項目實施方案
- 機動自行車車把控制裝置項目評價分析報告
- 成套無線電話機項目評價分析報告
- 戲劇用化妝品相關(guān)項目建議書
- 機器馬達(dá)和引擎的氣壓控制器相關(guān)項目建議書
- 跨學(xué)科主題學(xué)習(xí)- 美化校園(課件)七年級地理上冊同步 高效備課課件(人教版2024)
- 心臟除顫電極市場環(huán)境與對策分析
- 取景器照相機用相關(guān)項目建議書
- Mplus:多層模型分析課件
- 管理者角色認(rèn)知與轉(zhuǎn)換課件
- 城墻馬拉松賽志愿者培訓(xùn)課件
- 《觸蠻之戰(zhàn)蝸角之爭》原文及譯文解析
- 小學(xué)數(shù)學(xué)人教五年級上冊 可能性可能性- 課件
- 雙重預(yù)防機制構(gòu)建-隱患排查治理(中石化中原油田天然氣廠)
- 小學(xué)語文人教六年級上冊《過故人莊》課件
- 干部(職工)基本信息審核表
- 品管圈(骨科)課件
- “雙師型”師資培養(yǎng)調(diào)研問卷
- CQI15焊接系統(tǒng)評審課件
評論
0/150
提交評論