'实现代码如下
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 “关于冬季货物的成交合同”
