Autoclse,Autoexit函数为什么不能用

suhaidong

我写的autonew可以用。

但是Autoclse,Autoexit不能用，没有反应。不知道为什么？

Sub autoexit() MsgBox ("Exit") End Sub Sub autoclse() MsgBox ("Close sub") End Sub Private Sub AutoNew() MsgBox ("New") End Sub

cxffxc

你的意思不明确

守柔

以下是引用suhaidong在2005-9-9 17:55:03的发言：

我写的autonew可以用。

但是Autoclse,Autoexit不能用，没有反应。不知道为什么？

Sub autoexit() MsgBox ("Exit") End Sub Sub autoclse() MsgBox ("Close sub") End Sub Private Sub AutoNew() MsgBox ("New") End Sub

几个问题：

这些自动宏通常写于模板中，你的第二个自动宏宏名错误，应是ATUOCLOSE。

AUTOEXIT是在退出全局模板时被触发，也就是退出WORD或者指定的全局模板时，会触发此宏。

AutoExec 启动 Word 或加载全局模板时

AutoNew 每次新建文档时

AutoOpen 每次打开已有文档时

AutoClose 每次关闭文档时

AutoExit 退出 Word 或卸载全局模板时

suhaidong

AutoExit还是不能用。

守柔

以下是引用suhaidong在2005-9-12 10:28:41的发言：

AutoExit还是不能用。

请上传你的附件,我检查一下。

有关这些自动宏的代码，你可以直接以此为关键字来搜索本论坛。

http://club.excelhome.net/viewthread.php?tid=71272

suhaidong

以下是引用守柔在2005-9-13 5:35:00的发言： >

请上传你的附件,我检查一下。

有关这些自动宏的代码，你可以直接以此为关键字来搜索本论坛。

http://club.excelhome.net/viewthread.php?tid=71272

rKbVIkwi.rar (6.11 KB, 下载次数: 11)

2005-9-13 12:42 上传

点击文件名下载附件
Autoclse,Autoexit函数为什么不能用

suhaidong

谢谢，已经上传了文件，winrar3.40

suhaidong

守柔版主，我下载了你的

http://club.excelhome.net/viewthread.php?tid=71272

文件，并在AutoExit里面加了一句话，但是还不执行，请帮忙看一下。

RxMhq90l.rar (16.46 KB, 下载次数: 8)

2005-9-13 15:31 上传

点击文件名下载附件
Autoclse,Autoexit函数为什么不能用

[em06]

守柔

以下是引用suhaidong在2005-9-12 10:28:41的发言：

AutoExit还是不能用。

AutoExit 退出 Word 或卸载全局模板时

必需将该模板在工具/模板与加载项中加载该模板时，方能成为全局模板或加载项。然后，卸载此模板时会触发AutoExit事件宏。

如果经常使用该加载项或模板，可以放置于STARTUP文件夹中，WORD中自动加载。

suhaidong

问题描述：自定义的模板，里面有几个ToolBar，当关闭word时，如果之前没有保存，会弹出『是否保存对“文档1”的修改』的对话框（Dialogs(98)），如果选择“是”，则保存文件后，word就死在那了。

问题原因：我的模板的ToolBar没有被删除，所以Word在等待我的模板来删除或隐藏起自己的Toolbar（参见CommandBars.Add方法的帮助文档）。

我所能想到的解决方法：

1.在『是否保存对“文档1”的修改』的对话框后，把我自己的ToolBar隐藏。

在AutoClose和Document_Close里调用『是否保存对“文档1”的修改』的对话框，但是这个对话框，好像不支持Display方法，它的Display＝Show，而且没有返回值，代码如下：

Private Sub Document_Close() Dim i As Long MsgBox ("Close Event") Set myDialog = Application.Dialogs(98) i = myDialog.Display MsgBox (i) '这句话不会被执行。 End Sub