2021年7月4日
Word Application事件
摘要： Private WithEvents Application As Word.Application Private Sub Application_DocumentBeforeClose(ByVal Doc As Word.Document, Cancel As Boolean) End Sub 阅读全文
posted @ 2021-07-04 17:02 ryueifu 阅读(396) 评论(0) 推荐(0) 编辑
Outlook Application事件
摘要： Private WithEvents Application As Outlook.Application Private Sub Application_AdvancedSearchComplete(ByVal SearchObject As Outlook.Search) End Sub Pri 阅读全文
posted @ 2021-07-04 17:00 ryueifu 阅读(316) 评论(0) 推荐(0) 编辑
PowerPoint Application事件
摘要： Private Sub Application_AfterDragDropOnSlide(ByVal Sld As PowerPoint.Slide, ByVal X As Single, ByVal Y As Single) End Sub Private Sub Application_Afte 阅读全文
posted @ 2021-07-04 16:53 ryueifu 阅读(505) 评论(0) 推荐(0) 编辑
Excel Application事件
摘要： Private WithEvents Application As Excel.Application Private Sub Application_AfterCalculate() End Sub Private Sub Application_NewWorkbook(ByVal Wb As E 阅读全文
posted @ 2021-07-04 16:36 ryueifu 阅读(450) 评论(0) 推荐(0) 编辑