VBA禁用Word自带保存提示处理方法(个人总结)

1、类模块中创建名为AppEventHandle的对象，属性选择2 - PublicNotCreateable

'文档关前操作

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

intResponse = MsgBox("是否将更改保存到“"+Doc.Name+"”中?", vbYesNoCancel)

'取消关闭文档

If ThisDocument.intResponse = vbCancel Then

Cancel = True

End If

'保存并关闭文档

If ThisDocument.intResponse = vbYes Then

ActiveDocument.Close wdSaveChanges

End If

'不保存文档并关闭文档

If ThisDocument.intResponse = vbNo Then

ActiveDocument.Close wdDontSaveChanges

End If

End Sub

2、ThisDocument

添加全局变量

Public intResponse As Integer '用来接收关闭时选择的操作的参数值

Public app As New AppEventHandle

'注册Applicant事件

Sub Register_Event_Handler()

On Error Resume Next

Set app.app = Application

End Sub

3、Document_Close方法中处理代码去掉

本文来源：https://www.wddqw.com/doc/491dae069b6648d7c0c74635.html