Dim wbr1 As WinForm.WebBrowser = e.Form.Controls("WebBrowser1")
Dim tm As String = ProjectPath & "Attachments\工伤认定申请表.doc" '指定模板文件
Dim fl1 As String = ProjectPath & "Reports\" & CurrentTable.Current("受伤年份") & "\" & CurrentTable.Current("编号") & "工伤认定申请表.doc" '指定目标文件
Dim wrt1 As New WordReport(Tables("工伤认定决定书"),tm,fl1) '定义一个WordReport
wrt1.Build()
wrt1.Quit()
wbr1.AddRess = fl1
请大神指教
此主题相关图片如下：1538975384(1).png
谢谢 我是在编辑一个菜单直接生成WORD文件
' 工伤事故调查报告审批书
Dim Book2 As New XLS.Book(ProjectPath & "Attachments\工伤事故调查报告审批书.xls")
Dim file2 As String = ProjectPath & "Reports\" & CurrentTable.Current("受伤年份") & "\" & CurrentTable.Current("编号") & "工伤事故调查报告审批书.xls"
Book2.Build() '生成细节区
Book2.Save(file2) '保存工作簿
' 生成工伤认定书
Dim tm1 As String = ProjectPath & "Attachments\工伤认定决定书.doc" '指定模板文件
Dim fl1 As String = ProjectPath & "Reports\" & CurrentTable.Current("受伤年份") & "\" & CurrentTable.Current("编号") & "工伤认定决定书.doc" '指定目标文件
Dim wrt1 As New WordReport(Tables("决定书"),tm1,fl1) '定义一个WordReport
wrt1.Build() '逐行生成报表
wrt1.Show() '显示报表
为什么不能生成WORD文件，EXCEl好使，有没有和EXCEL一样的生成文件
[此贴子已经被作者于2018/10/8 13:32:05编辑过]
加好友 
发短信
Post By：2018/10/8 13:13:00 [只看该作者]
