pptSelection.close
'保存word文件。
objDoc.SaveAs("c:\" & objFile.FileName & ".doc")
'如果不需要关闭word，把下面这一行删掉
objDoc.close
'如果不想弹出消息框，把下面这一行删掉
msgbox "转换后的word已保存在c:\" & objFile.FileName & ".doc"
else '没有ppt文件
'msgbox "错误：c:\下没有发现ppt文件！"
End If
Next
pptApp.quit
回复:Set FileList = objWMIService.ExecQuery _
("ASSOCIATORS OF {Win32_Directory.Name='c:'} Where " _
& "ResultClass = CIM_DataFile")
~~~~~~~~~~~~~~~~~~~~~~~~~~
把所有空行都删除