Dim wbr As WinForm.WebBrowser = e.Form.Controls("WebBrowser1") Dim tm As String = ProjectPath & "Attachments\执业证书.doc" Dim fl As String = ProjectPath & "Reports\执业证书.doc" Dim wrt As New WordReport(Tables("基层法律服务人员信息表"),tm,fl) wrt.Build() wrt.Quit() wbr.AddRess = fl