Excel中如何通过VBA打开Word文件和PPT文件？

一、打开Word文件代码：set wo = CReateobject("Word.application")
wo.documents.open thiSWorkbook.path & "\流程.doc"
wo.visible = true
二、打开PPT文件代码：方法1：
set wo = CReateobject("powerpoint.application")
wo.visible = true
wo.PResentations.open thiSWorkbook.path & filename方法2：SUb dd()dim filepath$, filename$
filepath = chr(34) & thiSWorkbook.path & filename & chr(34)
shell "powerpnt.exe " & filepathend SUb附：双击打开pPS文件，在演示完后退出pPS时并没有powerpoint主窗口保留，但在Excel中使用vba打开的pPS文件，在演示完pPS退出后，powerpoint主窗口仍然打开。
这里使用一个循环判断演示窗口是否存在，加上错误捕捉程序来处理上面这个问题。
PRivateSUb commandbutton1_click()
dim wo asobject dim app asobject
' 创建powerpoint应用实例
set app = CReateobject("powerpoint.application")
' 使powerpoint可见
app.visible = true ' 打开pPS文件
set wo = app.PResentations.open(thiSWorkbook.path & "\a.pPS")
' 当pPS演示结束时，wo对象的slIDeshowWindow不存在，捕捉到错误
onerrorgoto errhandle
' pPS演示时全屏