做了Word报表模板，在申请表窗口 添加 WebBrowser1

Dim wbr As WinForm.WebBrowser = Forms("申请表").Controls("WebBrowser1")
Dim tm As String  = ProjectPath & "Attachments\\资助申请表.docx" \'指定模板文件
Dim fl As String = ProjectPath & "Reports\\资助申请表.docx" \'指定目标文件
Dim wrt As New WordReport(Tables("缴证信息_Table1"),tm,fl) \'定义一个WordReport
wrt.Build()
wrt.Quit()
wbr.AddRess = fl

此主题相关图片如下：qq截图20170222135703.png

能把Word报表模板功能区去掉吗？

此主题相关图片如下：qq截图20170222140133.png

代码怎样改？请指点，谢谢！

Dim wbr As WinForm.WebBrowser = Forms("申请表").Controls("WebBrowser1")
Dim tm As String  = ProjectPath & "Attachments\\资助申请表.docx" \'指定模板文件
Dim fl As String = ProjectPath & "Reports\\资助申请表.docx" \'指定目标文件
Dim wrt As New WordReport(Tables("缴证信息_Table1"),tm,fl) \'定义一个WordReport
wrt.Build()
wrt.Quit()

wbr.OfficeToolBar = False \'如果不需要显示工具栏，可删除此行代码
wbr.AddRess = fl

如果还不行，试试这样 http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=89515&skin=0

Dim dlg As New OpenFileDialog \'定义一个新的OpenFileDialog
Dim wbr As WinForm.WebBrowser = e.Form.Controls("WebBrowser1")
Dim tm As String  = ProjectPath & "Attachments\\资助申请表.docx"
Dim fl As String = ProjectPath & "reports\\资助申请表.docx"
Dim wrt As New WordReport(Tables("缴证信息_Table1"),tm,fl)
wrt.Build()
wrt.Quit
wbr.Address = fl

Dim axWebBrowser As Object   
Dim refmissing As [Object] = System.Reflection.Missing.Value
Dim args As Object() = New Object(3) {}
args(0) = 24
args(1) = 2
args(2) = refmissing
args(3) = refmissing
axWebBrowser.[Gettype]().InvokeMember("ExecWB", 256, Nothing, axWebBrowser, args)

 请老师帮我修改代码，谢谢！

看这个例子的代码

下载信息  [文件大小：312.0 KB  下载次数：52]

点击浏览该文件:webbrowser控制word_测试.