用vb从access调用数据，再利用word模版生成word文件?
用vb从access调用数据（文本型的），再利用word模版（就是通用的章节名），最后生成word文件（一本书）?最好有代码。主要是vb连接数据库和用vb控制word内部的段、节等。
[解决办法]
我有思路，但是我还没有做，客户说过一段时间才用，不知道你是否可以等等，若你需要的，可以给我Email：Fengjj@d-03.com，我现在也只能和你说一下思路，但是绝对可以行的通，就是模板Word文件里不允许有图片。
[解决办法]
我的数据库是MYSQL的， 链接VB实现方法一样，只是链接字符串不同：
Dim rs As ADODB.Recordset
Dim FileName As String
FileName = App.Path '处理word文件所在位置
FileName = FileName + "\ "
FileName = FileName + "doctemp\ "
FileName = FileName + "SXTG.doc "
ConnStr = "DRIVER={MySQL ODBC 3.51 Driver}; " & "SERVER=local; " & "DATABASE=MYDB; " & "UID=root;PWD=root;OPTION=3 " '链接服务器
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
conn.Open ConnStr
rs.Open "select * from case_basic where casenum= ' " & PCaseNum & " ' ", conn, adOpenStatic, adLockOptimistic
Dim wodapp As Word.Application
Set wodapp = New Word.Application
wodapp.Application.Documents.Open FileName:=FileName
With wodapp.Selection.Find '查找word中的year,并用数据库中内容来替换
.ClearFormatting
.Text = "year "
.Replacement.ClearFormatting
.Replacement.Text = Year(rs.Fields( "transgreesdata "))
.execute Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue
End With
wodapp.Documents(FileName).Save '保存文件
wodapp.Quit '退出后台的word进程
Set wodapp = Nothing '释放控制
这是我做当地一个城建局卷宗处理系统的时候刚好用到你所要求和功能.
有问题可以QQ：398175615联系。 兄弟我没分了，够信誉先给分吧~~~~^_^
