以下是引用aalons在2014-4-15 11:46:00的发言：动态填充就是：Word模板中预留的数据从数据库中提取。
模板合成：不同的Word模板合成在一起，组成一个Word报表
生成以后再操作一下，就好。参考
Dim app As New MSWord.Application
try
Dim fileName = "d:\test.doc"
app.Documents.Open(fileName)
Dim count = app.Documents(fileName).Characters.Count
Dim rng As MSWord.Range = app.Documents(fileName).Range(Start:=0, End:=count)
msgbox(rng.Text)
catch ex As exception
msgbox(ex.message)
finally
app.Quit
End try
参考 http://msdn.microsoft.com/zh-cn/library/tcyt0y1f%28v=vs.80%29.aspx
[此贴子已经被作者于2014-4-15 11:53:47编辑过]
加好友 
发短信
Post By：2014/4/15 9:40:00 [只看该作者]
