Prompt when close the document

ubns · #1 04-23-2012, 11:51 PM

Hi how can I make word document to pop up a window (once I try to close the document) - stating

"please ensure you have checked the following ----

(any text of my choice)"

Regards

Umesh Banga

macropod · #2 04-24-2012, 04:42 AM

Yes, but it's not a trivial process. See: http://word.mvps.org/FAQs/MacrosVBA/AppClassEvents.htm

ubns · #3 04-24-2012, 11:14 PM

so writing the code given on this page will allow for prompt screen to pop up.

if not do you know anywhere I can get the code or any open source program or add in for this functionality.

macropod · #4 04-24-2012, 11:47 PM

Hi umesh,

No, the code in that link is just to show you what's involved. You also need to understand that if the user has their macro security set too high, or if they choose to disable the macro when the document opens, there will be no prompt.

macropod · #5 04-27-2012, 02:07 AM

Hi umesh,

Using Events requires that you instantiate the app object class. To do this, create a new class module in your document or, preferably, its template, to register your events. At the top of the module put:

Code:

Public WithEvents wdApp As Word.Application
Public WithEvents wdDoc As Word.Document

Below that, add code like the following to intercept the save event:

Code:

Private Sub wdApp_DocumentBeforeSave(ByVal Doc As Document, SaveAsUI As Boolean, Cancel As Boolean)
Dim Rslt As Variant
Rslt = MsgBox("Have you done your homework?", vbYesNo)
If Rslt = vbNo Then Cancel = True
End Sub

Then, in a normal code module, put:

Code:

Dim wdAppClass As New ThisApplication
Public Sub AutoExec()
Set wdAppClass.wdApp = Word.Application
End Sub

This will allow you to get events from your Word document.

ubns · #6 04-27-2012, 09:35 PM

Hi Paul,

Please see the attached document, it gives some error message.

Regards

Umesh

macropod · #7 04-27-2012, 10:55 PM

Hi umesh,

There's no code in your document - it's a docx file. Either save the file in doc format or save it as docm then zip it before attaching it to a post.

Charles Kenyon · #8 04-28-2012, 07:50 AM

Quote:

Originally Posted by ubns

Hi Paul,

Please see the attached document, it gives some error message.

Regards

Umesh

To expand on what macropod said, macros are stored in normal.dotm by default. You have to actively try to store them elsewhere. In this case you want them to be in the document, not in normal.dotm or in the document template if that is something other than normal.dotm.

ubns · #9 04-28-2012, 09:20 PM

Hi Paul,

Hope this one is fine.

Regards

Umesh Banga

macropod · #10 04-29-2012, 03:04 AM

Hi umesh,

You'll need to save the file as a template. Here 'tis as Normal.dot (zipped):

ubns · #11 04-29-2012, 05:07 PM

Hi Paul,

I have followed your instructions. Please see attached.

In case it does not work I have also attached the screenshots.

Regards

Umesh

macropod · #12 04-29-2012, 05:19 PM

Hi umesh,

I should have been clearer - it needs to be in the Normal template or, perhaps, another global template or addin. The code has to load when Word starts, otherwise the class event doesn't get registered.

ubns · #13 04-29-2012, 06:13 PM

I have checked my normal.dot template, and i can see this in macro list.

it still give the same error message"compile error: User defined type not defined and highlights the line:

"Dim wdAppClass As New ThisApplication"

Regards

macropod · #14 04-29-2012, 06:17 PM

Have you replicated the code in your Normal template exactly as it appears in the attachment to post #10? That template works for me, so the same code should work for you.

ubns · #15 04-29-2012, 07:10 PM

I did actually. Anyways, it definitly something on my side.

any other way?

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Help with Document Properties Prompt Macro	KJJ	Word VBA	14	11-10-2016 08:18 PM
Suppress the Save prompt	UTSUPPORT	Word	1	01-16-2012 09:27 PM
Date Range Prompt	MikeWooZ	Excel	6	12-04-2011 02:10 PM
Prompt for Selection Point in document	caddcop	Word VBA	3	06-14-2011 05:45 PM
Disable email security prompt	mcinnes01	Outlook	1	03-17-2011 07:00 AM