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