如何拦截WORD应用程序右上方的关闭按钮

Question

Dim WithEvents AA As Word.Application--------------------------------------------------
Private Sub AA_DocumentBeforeClose(ByVal Doc As Document, Cancel As Boolean)
'退出
'CANCEL=0
ELSE
'CANCEL=1
End Sub

Answer 1

感谢您使用微软产品。
  
使用Sub Document_Close, 必须将其放置在文档的”ThisDocument”对象内。
 
注意：
 • 放置在Normal.dot的ThisDocument内是不允许的，因为Normal.dot有内建的Document_Close。
 • 放在Modules里是无效的。
 
-微软亚洲技术中心 桌面产品技术支持
 
本贴子仅供CSDN的用户作为参考信息使用。其内容不具备任何法律保障。您需要考虑到并承担使用此信息可能带来的风险。具体事项可参见使用条款 (http://www.csdn.net/microsoft/terms.shtm)。

Answer 2

真是太谢谢 z_byte(比特) 了，太谢谢了，立竿见效!
当然也谢谢acptdta，不过你的方法只能在WORD的宏里面实现。
马上给分。(水平有限，分不多 ＠＾＠）