- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]如何一次性生成多个word文档 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=106265)
-- 发布时间：2017/9/5 17:14:00
-- [求助]如何一次性生成多个word文档
1、需求
选择多行记录（例如全部），执行命令：专业报表-批量输出单个WORD报表，能
。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:批量输出多个报表文件.rar |
。
例如生成的文件为
1广州.docx
2佛山.docx
……
2、现状
2.1 代码
打印输出-专业报表-报表管理-批量输出单个WORD报表
代码：
Dim tm As String = ProjectPath & "Attachments\\地市.docx" \'指定模板文件
Dim fl As String = ProjectPath & "Reports\\" & Tables("信息").current("序号") & Tables("信息").current("区域") & ".docx" \'指定目标文件
Dim wrt As New WordReport(Tables("信息"),tm,fl) \'定义一个WordReport
wrt.Build() \'逐行生成报表
wrt.Show() \'显示报表
2.2生成结果
只能一次生成一个文件。
3、解决办法
请问如何处理
-- 发布时间：2017/9/5 17:50:00
--
Dim tm As String = ProjectPath & "Attachments\\地市.docx" \'指定模板文件
Dim t As Table = Tables("信息")
For i As Integer = t.TopPosition To t.BottomPosition
Dim r As Row = t.Rows(i)
Dim fl As String = ProjectPath & "Reports\\" & r("序号") & r("区域") & ".docx" \'指定目标文件
Dim wrt As New WordReport(t,tm,fl) \'定义一个WordReport
wrt.Buildone(r) \'逐行生成报表
wrt.quit
Next
-- 发布时间：2017/9/5 18:48:00
--
实现要求，谢谢。