主题：菜单生成WORD失败

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