用和来制作格式合同的方法计划

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

word模版制作:

在第一行是合同标题 \" 【书签1合同标题xxxxxxxx合同】\"

第二行

******************************

合同编号: 【书签2合同编号】

签约单位: 【书签3签约单位】

广告主投放预算趋于谨慎 签约地址: 【书签4签约地址】

签约日期: 【书签5签约日期】

. ....

表格第一行 \'\'表格第一行第一列中插入 书签4

表格第二行

\'\'实现代码如下

Dim cn As New nnection

Dim AdoRs As New cordset

Dim WordTemps As New plication

Private Sub Form_Load()

If ate = 1 Then

ose

End If

rsorLocation = adUseClient

en \"Provider=EDB.4.0;Data Source=\" th \"\\b\"

End Sub

\'\'开始导出数据

Private Sub Command1_Click()

Dim strSQl As String

Dim REC As Integer

Dim i As Integer

[下一页]

d th + \"\\货物合同.doc\", False

To wdGoToBookmark, , , \"合同标题\"

peText “关于冬季货物的成交合同”

To wdGoToBookmark, , , \"合同编号\"

peText “”

To wdGoToBookmark, , , \"签约单位\"

peText “宏大科技公司，天天科技公司”

To wdGoToBookmark, , , \"签约地址\"

peText “北京中关村大厦”

To wdGoToBookmark, , , \"签约时间\"

peText fromat(Now, \"yyyy-mm-dd\")

strSQl = \"select * from Matrixs\"

en strSQl, cn, adOpenKeyset, adLockOptimistic

REC = cordCount

If REC 1 Then

MsgBox \"无商品记录！\", vbOKOnly, \"提示\"

ose

Exit Sub

Else

veFirst

To wdGoToBookmark, , , \"货物清单\"

For i = 1 To REC

peText AdoRs!名称

veRight unit:=wdCharacter, Count:=1 \'\'右移一格

peText AdoRs!数量

veRight unit:=wdCharacter, Count:=1 \'\'右移一格

peText AdoRs!规格

veNext

If F = False Then

sertRowsBelow 1 \'\'表格换行

End If

Next i

ose

sible = True \'\'显示WORD窗口

End If

End Sub

云南有没有不孕不育医院
拉萨治疗盆腔炎费用多少钱
江中牌健胃消食片