怎么知道当前ppt文件是ppt还是pptx格式的

如何知道当前ppt文件是ppt还是pptx格式的
在word里面，宏
Sub 宏1()

MsgBox ActiveDocument.SaveFormat

End Sub

可以获取当前文档的格式，如果是11的话，就是docx，是0的话，就是doc

请问ppt里面如何判断呢？
[解决办法]
查阅一下这个里面，看看有没有？
http://download.csdn.net/detail/veron_04/1627134