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)
请老师帮我修改代码,谢谢!

此主题相关图片如下:qq截图20170223121930.png