如何在PPT文档中设定它的COLSE事件！

Question

我要在关闭一个叫A.ppt的文档时就自动招待一些代码，相找它的COLSE事件，但没有，WORD和EXCEL都有，看了帮助也没搞懂，请高手帮助，在线等！

Answer 1

楼主，用这个事情试试
PresentationClose 事件
参阅应用于示例特性关闭任意打开的演示文稿时发生此事件，同时从 Presentations 集合中删除该演示文稿。Private Sub application_PresentationClose(ByVal Pres As Presentation)
application      Application 类型的对象，在类模块中声明，自身具有事件。有关使用 Application 对象的事件的详细信息，请参阅使用 Application 对象的事件。Pres      正在关闭的演示文稿。示例
本示例将当前演示文稿的一个副本保存为 HTML 文件，该文件具有相同的文件名且位于同一文件夹中。Private Sub App_PresentationClose(ByVal Pres As Presentation)
    FindNum = InStr(1, Pres.FullName, ".")
    HTMLName = Mid(Pres.FullName, 1, FindNum - 1) _
        & ".htm"
    Pres.SaveCopyAs HTMLName, ppSaveAsHTML
End Sub