以文本方式查看主题

-  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=125840)
--  作者：ryubo888
--  发布时间：2018/10/8 13:13:00
--  菜单生成WORD失败
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编辑过]
--  作者：有点甜
--  发布时间：2018/10/8 14:53:00
--  

1、这样是否可以？

 

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()


 

2、这样是否可以？

 

Dim wbr1 As WinForm.WebBrowser = Forms("窗口1").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

[此贴子已经被作者于2018/10/8 14:53:20编辑过]