VB如何将数据导入WORD模版打印

      以前做的一个单据外观小程序，客户可以编辑word模版改变单据的样式，废话不说了，直接上图和代码：http://leek.woku.com/article/4876141.html

 

 

 

 

 

Public Sub ExporToWord2003()

On Error GoTo DocERR

   '************************************************************************************
    Dim Rs As New ADODB.Recordset
    Dim strSQL As String
   
    If Len(TextNumber.Text) <> 0 Then
        '*使用自定义寻找表单号
        If Len(TextNumber.Text) <> 12 Then
            MsgBox "输入的表单号应该是12个数字字符", vbInformation
            GoTo PROC_EXIT
        End If
        strSQL = "SELECT * FROM 记录 WHERE 记录号 = " & _
                  QueryStrToSQLstr(TextNumber.Text) & " ORDER BY ID"
        Set Rs = ExecuteSQL(strSQL)
        If Rs.RecordCount <> 1 Then
            MsgBox "输入表单号错误！", vbExclamation
           
            Rs.Close
            Set Rs = Nothing
           
            GoTo PROC_EXIT
           
        End If
    Else
        strSQL = "SELECT * FROM 记录 ORDER BY ID"
        Set Rs = ExecuteSQL(strSQL)
        Rs.M