用VB和Word来制作格式合同的方法

  '实现代码如下

  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

更多内容请看PCdog.com--Word技巧专题