PB中调用OLE打开word文档

oleobject ole_1
String ls_filename
Integer li_ret

 

ls_filename = 'F:/44.doc' // 你的word文档路径
ole_1 = create oleObject

//建立与Word的连接
li_ret = ole_1.ConnectToObject("Word.application")

if li_ret <> 0 then
    //如果Word还没有打开，则新建一个Word 
    li_ret = ole_1.ConnectToNewObject("Word.Application") 
    if li_ret <> 0 then 
        MessageBox("OLE错误","OLE无法连接! 错误号 ：" + string(li_ret)) 
        return 

    end if 
    ole_1.Documents.open(ls_filename)
    ole_1.Application.visible = true

 

    ole_1.DisConnectObject() //断开OLE连接 

    if isvalid(ole_1) then  destroy ole_1
end if