☰

在 Word 中保存文件时弹出“您确定吗......”

tag-icon • tag-icon vba microsoft-excel-2016 microsoft-word-2016
在 Word 中保存文件时弹出“您确定吗......”

当我在 Word 2016 中按下 ctrl+s 时，如何使用 VBA 添加弹出窗口“您确定要保存此文件吗？”。

我可以在 Excel 2016 中通过Application.OnKey "^s", "Macro_Name"在“personal.xlsb”中向“ThisWorkbook”添加命令来执行此操作。因此，当我按 ctrl+s 时，它会运行宏。如何在 Word 2016 中实现此操作？

答案1

这需要 VBA 宏。未经测试，我认为它可能看起来像这样：

Private Sub App_DocumentBeforeSave(ByVal Doc As Document, _
  SaveAsUI As Boolean, Cancel As Boolean)
    Dim Result As Long
    Result = MsgBox("Are you sure you want to save?", vbYesNo)
    If Result = vbNo Then Cancel = True
End Sub

此代码利用 Application.DocumentBeforeSave 事件，这发生在保存任何打开的文档之前。

有关 VBA 宏的更多信息，请参阅 Microsoft 文章 创建或运行宏。

相关内容