vb6将word文件转化字符串_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</