Message Box on Close

macropod · #2 05-10-2013, 03:54 PM

You would probably do better to implement this via a DocumentBeforeClose macro, coded along the lines of:

Code:

Private Sub wdApp_DocumentBeforeClose(ByVal Doc As Document, Cancel As Boolean)
Const StrNm As String = "Home_Attempt_1_Date"
If Doc.FormFields(StrNm).Result = "N/A" Then _
  If MsgBox(StrNm & " is N/A." & vbCr & "Continue closing?", vbYesNo) = vbNo Then _
    Cancel = True
End Sub

For implementation instructions, see: http://word.mvps.org/FAQs/MacrosVBA/AppClassEvents.htm
Note also how much simpler the code can be made (even if you don't use this event)

Alternatively, see: http://word.mvps.org/faqs/macrosvba/...eforeClose.htm

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Close 'downloads' window with VBA	CatMan	Excel Programming	6	12-14-2012 01:34 PM
EXCEL tries to close a file	userman	Excel	2	05-31-2012 03:15 AM
Message replys are shown at the bottom of the message, how can I get them to the top	Gardy	Outlook	3	05-23-2012 01:20 AM
Prompt when close the document	ubns	Word	15	04-29-2012 10:07 PM
Is there an exit on close ?	mhdadmh	Word	0	10-12-2006 04:28 PM