Try
Dim s1 As String =args(0)'替换文本
Dim s2 As String =args(1)'替换内容1
Dim s3 As String = args(2) '替换图片
Dim tm As String = ProjectPath & "Attachments\xgx.doc" '指定模板文件
Dim fl As String = ProjectPath & "相关性图\xgx" & s3 & ".doc" '指定目标文件
Dim wrt As New WordReport(Tables("xgb"),tm,fl) '定义一个WordReport fxygx" & Vars("_xz7") & ".wmf")'
wrt.replace("[文本]",s1)
wrt.replace("[内容1]",s2)
wrt.ReplaceWithImage("[&&xgx.wmf,400,300]",ProjectPath & "相关性图\fxygx" & s3 & ".wmf",400,300) '
wrt.Build()
wrt.quit '退出报表
Catch ex As Exception
messagebox.show("程序异常错误,可能进程中存在已打开的word程序,请关闭后再运行!")
End Try
多次调用这个函数，执行几次后就会出现错误，如果在任务管理器的进程中关闭了word程序，可以继续调用这个函数再执行。关闭word进程后，有下面的提示错误，如何改代码才好？
此主题相关图片如下：qq图片20160413105159.png
[此贴子已经被作者于2016/4/13 11:23:32编辑过]
加好友 
发短信
Post By：2016/4/13 10:59:00 [只看该作者]
