- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 想实现点击电子印章的时候 加盖了电子印章的Word显示在右边【当前怎么操作都是另外弹出窗体显示出文件？】 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=159609)
-- 发布时间：2020/12/31 17:33:00
-- 想实现点击电子印章的时候 加盖了电子印章的Word显示在右边【当前怎么操作都是另外弹出窗体显示出文件？】
当前窗体有两个web浏览器组件 点查看模板的时候 左边显示模板 点生成word的时候 右边显示生成的数据word文件
此主题相关图片如下：1.png
想实现点击电子印章的时候 加盖了电子印章的Word显示在右边【当前怎么操作都是另外弹出窗体显示出文件？麻烦老师们帮忙修正 不新建word窗体打开文件 直接显示在右边的web浏览器组件中】
此主题相关图片如下：2.png
生成word代码：
Dim tm As String = ProjectPath & "Attachments\\入党申请谈话通知书.doc"
Dim f1 As String = ProjectPath & "Reports\\ " & Vars("姓名") & "入党申请谈话通知书.doc"
Dim wrt As New WordReport(tm,f1) \'注意这里无需指定表名
wrt.AddDataTable("党员信息","智慧党建","Se lect * from {党员信息} where 姓名 = \'" & Vars("姓名") & "\'")
wrt.Build()
wrt.Quit() \'退出
Dim tb2 As WinForm.TabControl = e.Form.Controls("TabControl2")
tb2.SelectedIndex=0
Dim wb2 As WinForm.WebBrowser = e.Form.Controls("WebBrowser2")
wb2.OfficeToolBar = False
wb2.Address=f1
电子印章代码：
Dim ps As System.Diagnostics.Process() = System.Diagnostics.Process.GetProcessesByName("WinWord")
For Each p As System.Diagnostics.Process In ps
p.kill
Next
Dim tb2 As WinForm.TabControl = e.Form.Controls("TabControl2")
Dim wb2 As WinForm.WebBrowser = e.Form.Controls("WebBrowser2")
Dim f1 As String = ProjectPath & "Reports\\ " & Vars("姓名") & "入党申请谈话通知书.doc"
Dim App As New MSWord.Application
Dim doc As object = app.Documents.Open(f1)
Dim s = doc.Shapes.AddPicture("C:\\Users\\Administrator\\Desktop\\dzyz\\电子印章\\Attachments\\电子印章.png", False, True,300, 500, 100, 100)
s.WrapFormat.Type = MSWord.WdWrapType.wdWrapFront
app.visible = True
app.quit
tb2.SelectedIndex=0
wb2.Address=f1
[此贴子已经被作者于2020/12/31 17:36:07编辑过]
-- 发布时间：2020/12/31 17:42:00
--
双击Foxtable目录下的Office.reg文件，将其添加到注册表中，重启项目测试
-- 发布时间：2020/12/31 19:03:00
-- 回复：（有点蓝）双击Foxtable目录下的Office.reg文件...
重新加载注册 启动项目 都是一样 会另外打开word软件显示加载印章后的Word文件 是不是上述代码那个地方有问题呢？
Dim f1 As String = ProjectPath & "Reports\\ " & Vars("姓名") & "入党申请谈话通知书.doc"
Dim App As New MSWord.Application
Dim doc As object = app.Documents.Open(f1)
Dim s = doc.Shapes.AddPicture("C:\\Users\\Administrator\\Desktop\\dzyz\\电子印章\\Attachments\\电子印章.png", False, True,300, 500, 100, 100)
s.WrapFormat.Type = MSWord.WdWrapType.wdWrapFront
app.visible = True
{这个地方是否可以弄一个保存文件的写法呢？保存已经加载电子印章图片的文件到 ProjectPath & "Reports\\ " & Vars("姓名") & "入党申请谈话通知书（已盖章）.pdf"}
app.quit
-- 发布时间：2020/12/31 20:28:00
--
安装完整版的office，不要安装wps
-- 发布时间：2021/3/16 14:13:00
--
请问一下李孝春先生，这个搞成没有啊？
-- 发布时间：2021/3/16 14:13:00
--
请问一下李孝春先生，这个搞成没有啊？