以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  在Word 报表中怎么样将多个文档模板动态填充后合成一个文档  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=49251)
--  作者：aalons
--  发布时间：2014/4/15 9:40:00
--  在Word 报表中怎么样将多个文档模板动态填充后合成一个文档
请教大师：在Word 报表中怎么样将多个文档模板动态填充后合成一个文档
--  作者：Bin
--  发布时间：2014/4/15 9:47:00
--  
这个有难度,你要怎么个动态填充合成法?
--  作者：aalons
--  发布时间：2014/4/15 11:46:00
--  
动态填充就是：Word模板中预留的数据从数据库中提取。
模板合成：不同的Word模板合成在一起，组成一个Word报表
--  作者：有点甜
--  发布时间：2014/4/15 11:53:00
--  
以下是引用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编辑过]