PB中捕获OLEObject错误

最近在使用PB9按OLEOBJECT调用WORD过程中,对出现类似如下的

“Error calling external object function senddata at line。。。”错误,需要程序能捕获到,下面是代码段:

//连接word
integer li_ret
li_ret = ole_object.ConnectToObject("Word.application")
if li_ret <> 0 then
   //如果Word还没有打开,则新建一个Word
   li_ret = ole_object.ConnectToNewObject("Word.application")
   if li_ret <> 0 then
      MessageBox('错误','使用OLE控制WORD打印输出无法连接!')
      return
    end if
    ole_object.Visible = false
end if
if not fileexists(docfile) then
   messagebox('错误',docfile+"~r~n~r~n"+"拍卖成交确认书模板文件未找到!")
   return
end if
try
   ole_object.documents.open(docfile)
catch (OLERuntimeError ex)
   messagebox('OLE错误',ex.getmessage())
   ole_object.application.quit()       //退出word  
   //断开OLE连接
   Ole_Object.DisConnectObject()
   Destroy Ole_Object
   return
end try
...

 

已标记关键词 清除标记
©️2020 CSDN 皮肤主题: 大白 设计师:CSDN官方博客 返回首页