如何在允许 Word 文档关闭之前要求确认？

Question

我使用 2 种不同的键盘布局（qwerty 和 azerty），并且经常使用 Alt-Shift 在两者之间切换。有时当我用 Ctrl-Z 撤消时，我得到的是 Ctrl-W 来关闭文档。一般来说，在这些情况下我会得到一个保存提示，它会提醒我我的错误。但是，我现在使用 OneDrive，自动保存我正在处理的文档。因此，永远不会有这个保存提示。文档立即关闭，更糟糕的是，当重新打开文档时，我试图执行的撤消操作不再存在。

我想使用附加到普通模板的 VBA，这样，在关闭使用 VBA 模板创建的任何文档时，我将检查是否打开了自动保存，如果是，请在关闭之前使用消息框进行确认. 显然，如果用户不确认（例如选择取消），则不应关闭文档。

最初我将代码放在 Document_Close 上，但很快意识到现在取消关闭为时已晚。这对我没有好处。 然后，根据网上的一些代码，我把我的代码放在了一个类模块（EventClassModule）中。在 ThisDocument 模块中，我启动类，并激活事件处理程序。 我的代码似乎从来没有运行过，或者在任何情况下，断点都不会启动。

我有点不确定 Normal 在哪里停止，而我的正常文档从哪里开始......

在普通模板的ThisDocument中，我有这个VBA

Dim X As New EventClassModule

Sub Register_Event_Handler()
    Set X.App = Word.Application
End Sub

Private Sub Document_Open()
    Register_Event_Handler
End Sub

我有一个名为 EventClassModule 的类模块，其中包含以下内容

Public WithEvents App As Word.Application

Private Sub App_DocumentBeforeClose(ByVal Doc As Document, Cancel As Boolean)

Dim res As VbMsgBoxResult

    If Me.AutoSaveOn Then
        res = MsgBox("OK to Confirm", vbOKCancel, "Closing Document")
        If res = vbCancel Then
            Cancel = True
        End If
    End If

End Sub

我希望在任何时候关闭文档并关闭自动保存选项时提示确认保存。

Answer 1

仅当通过 File | 打开 Normal 模板时才会触发 Document_Open 事件处理程序。打开。要在启动 Word 时让代码响应，您需要使用 AutoExec 例程。只需将您的例程重命名如下。你可以找到更多关于自动宏的信息here

Public Sub AutoExec()
  Register_Event_Handler
End Sub

Answer 2

这是一个简单的方法，包括这样的方法：

Public Sub DocClose()
    ' Disables Ctrl + W  (but not other close methods, e.g. Alt + F4, menus, [X])
    ' Your code here:
    ActiveDocument.Close 
End Sub

基本上，MS-Word 内部使用了一些方法名称，如果将它们包含在代码中，它们将阻止默认操作。如果您将 sub 留空，它将有效地禁用 Ctrl + W。

更多信息请看这里：Reserved method names in MS Word VBA

---

这种技术的优势1

如果您使用 Public WithEvents App As Word.Application 并且您的项目因任何原因被重置，并且无法重新启动...App 将是 Nothing，并且不会触发任何事件。

这种技术的优势2

在您真正想要关闭文档的情况下......使用这种技术，您不会被（很快成为）烦人的确认消息所困扰 - 只是说;-)