WD2000: WithEvents Fails Quit Event with No Documents Open (212538)

MORE INFORMATION

Microsoft provides programming examples for illustration only, without warranty either expressed or implied. This includes, but is not limited to, the implied warranties of merchantability or fitness for a particular purpose. This article assumes that you are familiar with the programming language that is being demonstrated and with the tools that are used to create and to debug procedures. Microsoft support engineers can help explain the functionality of a particular procedure, but they will not modify these examples to provide added functionality or construct procedures to meet your specific requirements.
WithEvents is an optional keyword for the Dim, Private, and Public declaration statements. It is used to trap specific Application or ActiveX object events and is valid only in class modules.

To create sample Visual Basic for Applications code that uses the WithEvents keyword, follow these steps:

1. On the Tools menu, point to Macros and then click Visual Basic Editor.
2. In the Visual Basic Editor, click to select the Normal module.
3. On the Insert menu, click Class Module.
4. In the General Declarations section of the class module, type the following declaration:

      Public WithEvents App As Application
   						

   and the following procedure:
   

      Private Sub App_Quit()
         MsgBox "Exiting Word"0
      End Sub
   						

5. In the General Declarations section of a module; for example, the NewMacros module, type the following declaration:
   

      Public cExit As New Class1
   						

   and the following procedure:

      Sub AutoExec()
         Set cExit.App = Application
      End Sub
   						

6. Quit and restart Word to initialize the class.

When you quit Word again, the message box containing the Exiting Word prompt is displayed.

NOTE: If no documents are open when you quit Word, the Quit event is not generated, and the message box is not displayed.

For more information about Quit Event, in the Visual Basic Editor, click Microsoft Visual Basic Help on the Help menu, type Quit Event in the Office Assistant or the Answer Wizard, and then click Search to view the topic.

For more information about WithEvents, in the Visual Basic Editor, click Microsoft Visual Basic Help on the Help menu, type Public Statement in the Office Assistant or the Answer Wizard, and then click Search to view the topic.

For more information about how to use the sample code in this article, click the article number below to view the article in the Microsoft Knowledge Base: