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

原创 2004年01月16日 10:19:00

VBWORD模版+数据库来制作格式合同的方法

 

概述:在应用程序中经常有定制格式报表的需要,如打印合同、货物清单、备忘录等等,使用第三方报表软件可以实现但是比较繁琐,实际上利用Word的自动化编程,使用VBA可以完成类似的功能,而且很实用。

 

步骤一、

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 Integer

    Dim i As Integer

 

    WordTemps.Documents.Add App.Path + "/货物合同.doc", False

 

    WordTemps.Selection.GoTo wdGoToBookmark, , , "合同标题"

    WordTemps.Selection.TypeText “关于冬季货物的成交合同

 

            

    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, "提示"

        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     '表格换行

            End If

        Next i

       

       

       

        AdoRs.Close

           

        WordTemps.Visible = True '显示WORD窗口

 

    End If

 

End Sub

 

作者:soho_andy()

 

用VB+WORD模版+数据库来制作格式合同的方法(转帖)

用VB+WORD模版+数据库来制作格式合同的方法   发表时间:2004-8-10作者:未知[获得此文档时候没有作者记录,深感抱歉,本文档全为转载]   用VB+WORD模版+数据库来制作格式合同的方...
  • rainsnow
  • rainsnow
  • 2004年11月23日 09:04
  • 1246

FreeMarker 生成合同

在实际工作中遇到过生成合同模版的问题,这里解决方案之一吧: 1,首先通过工具把word 合同生成 xml 文档  ,直接另存为 XML 格式文档即可。然后保存为 .ftl 模版 2.  使用工具查询要...
  • zhaohongdiqicai
  • zhaohongdiqicai
  • 2017年08月22日 11:18
  • 208

java 编码填充 word 模板生成 word合同,并将word合同转成pdf 文档

java 编码填充  word 模板生成  word合同,并将word合同转成pdf  文档 一、 1、 package com.test; import ja...
  • meiguihuakai358
  • meiguihuakai358
  • 2017年08月07日 10:12
  • 502

合同数据库设计

contract (合同管理) KY_ID    int(11) 主键id   KY_NAME varchar(255)...
  • dancheng1
  • dancheng1
  • 2017年06月27日 22:23
  • 550

合同详细信息页面设计

比较复杂,牵扯到2个表  private void Page_Load(object sender, System.EventArgs e)  {   // 在此处放置用户代码以初始化页面   try...
  • feifeile
  • feifeile
  • 2006年05月04日 21:50
  • 1011

用Adobe Acrobat DC快速生成合同模板、itext导出pdf,解决项目中合同问题

关于itext生成pdf合同、导出pdf---实例
  • w20228396
  • w20228396
  • 2017年03月29日 15:27
  • 1392

如何在线签订电子合同, 看这一篇就够了!

引自 http://mp.weixin.qq.com/s?__biz=MjM5NjkxMjU4MA==&mid=2650717387&idx=1&sn=82121f5d93c7627b5a34d6ca...
  • u010820135
  • u010820135
  • 2016年06月16日 18:52
  • 6227

PMP知识点总结—合同类型

通常可把合同归为两大类,即总价和成本补偿类。还有第三种常用合同类型,即混合型的工料合同。下面把这些常用合同类型分开来讨论,但在实践中,合并使用两种甚至更多合同类型进行单次采购的情况也不罕见。 总价合同...
  • michelleqiao
  • michelleqiao
  • 2011年03月17日 10:35
  • 10225

租房应该注意什么?

lawyer-mo ,律师,咨询收费 76 人赞同 今天刚刚更新了我的公众号,以法律视觉提醒各位租客应当注意的十个法律陷阱,直接粘贴过来了: 1.在签订合同时,承租方首先要确认对方是房屋所有...
  • GarfieldEr007
  • GarfieldEr007
  • 2016年06月20日 10:38
  • 755

数据库课程设计报告格式模版

摘  要摘要:黑体,小4号 行距1.5倍段前1.5行,段后1.5行文章从系统结构图……,针对计算机应用能力网络化考核系统,通过对office系列软件的VBA对象结构的分析,提出了通过XML的评分脚本(...
  • wangxuying
  • wangxuying
  • 2010年03月19日 23:27
  • 2449
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:用VB+WORD模版+数据库来制作格式合同的方法
举报原因:
原因补充:

(最多只允许输入30个字)