[求助]文档关闭时弹出对话框的代码(守版解决:7楼)

tangqingfu · 发表于 2006-11-19 20:07

请教下面问题用VBA怎么写？

每次点击“关闭”按钮，则自动弹出对话框，提示“您是否已经存盘了？，还没有的话，赶快存盘吧！”，按钮为“是”和“否”；如果按“是”，则关闭退出；如果按“否”，将退出当前对话框，保存后自动退出。

我刚刚学习VBA，以下是我尝试写的代码，但出错了，当点“否”，也自动退出了，请各位帮忙指点一下，谢谢！

Sub autoclose()
    Dim a
    MsgBox "您是否存盘了？" & Chr(13) & "还没有的话，赶快存盘吧！", 32 + 4, "信息提示"
    If a = 6 Then
    Application.Quit
    ElseIf a <> 6 Then
    ThisDocument.Save
    End If
    Application.Quit
End Sub

[此贴子已经被作者于2006-11-20 8:56:31编辑过]

守柔 · 发表于 2006-11-19 20:23

您可以参考一下拙作中的P346页Application事件图11-33中的代码更好。

tangqingfu · 发表于 2006-11-19 20:26

谢谢老大！

tangqingfu · 发表于 2006-11-19 21:00

请教老大：

如何在工程资源管理中显示“application”？我笨，找不到！

[此贴子已经被作者于2006-11-19 21:19:18编辑过]

守柔 · 发表于 2006-11-19 21:40

QUOTE:

以下是引用tangqingfu在2006-11-19 21:00:40的发言：

请教老大：

如何在工程资源管理中显示“application”？我笨，找不到！

您在代码窗口的通用声明段（即如图所示的最上面键入：

Public WithEvents myWord As Word.Application后回车

即可在过程/事件下拉列表框中找到myWord_DoucmentBeforeClose(***)事件过程了

tangqingfu · 发表于 2006-11-20 00:16

QUOTE:

以下是引用守柔在2006-11-19 21:40:41的发言：

您在代码窗口的通用声明段（即如图所示的最上面键入：

Public WithEvents myWord As Word.Application后回车

即可在过程/事件下拉列表框中找到myWord_DoucmentBeforeClose(***)事件过程了

还是不明白，所以再次麻烦守版主：

Public WithEvents myWord As Word.Application是在哪个地方键入的？为什么我在工程资源管理中就是找不到如书上所说的“application”，感觉书中是将代码放置在Project (application)下的Thisdocument.我怎么也找不到，因此不知该将书中的代码放置在哪里？能否请守版主明示？晕死了[em06]，还是不懂[em04]（现在是拥有老大的代码，却不知放在何处？）能否请老大将操作的过程详细说明一下？

[此贴子已经被作者于2006-11-20 0:48:11编辑过]

守柔 · 发表于 2006-11-20 06:39

见附件，ALT+F11，打开VBE

注：本书光盘中示例文件中即有。

fDwy9uVo.rar (7.38 KB, 下载次数: 21)

tangqingfu · 发表于 2006-11-20 08:52

谢谢守版！消化一下！

		自动登录	找回密码
密码			免费注册