ACC: How to Use Automation to Run a Microsoft Word Macro (154570)

MORE INFORMATION

Example - Run a Microsoft Word 7.0 Macro

The following example opens a Microsoft Word document called Wordtest.doc and runs a macro, Macro1, which currently exists in the default template. The following code example assumes that you have created a document named WordTest.Doc in the C:\My Documents folder and that you have created a macro named Macro1 in the default template.

To run this code:

1. Open Microsoft Word 7.0. When you run the code from Microsoft Access, Microsoft Word remains open.
2. Open a Microsoft Access database and create a new module.
3. Type the following procedure:

         Function RunMacro()
            Dim WordObj as Object
            Set WordObj = CreateObject("Word.Basic")
            WordObj.FileOpen "C:\My Documents\Wordtest.doc"
            WordObj.ToolsMacro "Macro1", 1
         End Function
   						

4. To run the function, open the Debug Window, type the following line, and then press ENTER:

   ? RunMacro()

Example - Run a Microsoft Word 7.0 Macro in a Form's Object Frame

This procedure activates an embedded Microsoft Word object on a form and runs a macro named Macro1, which currently exists in the Microsoft Word default template. The following code assumes that you have created a document named WordTest.Doc in the C:\My Documents folder and that you have created a macro named Macro1 in the Microsoft Word default template.

To run this code:

1. Open a Microsoft Access database and create a new blank form.
2. Add an unbound object frame to the form. In the Insert Object dialog box, click the Create From File option and choose WordTest.Doc fromyour

      C:\My Documents folder.
   						

3. Click OK to close the Insert Object dialog box.
4. Display the property sheet for the object frame control. Set the Name property to OLEObj.
5. Add a command button to the form and set its Name property to RunMacro.
6. Type the following function for the OnClick event procedure of the command button:

         Private Sub RunMacro_Click()
            Dim WordObj As Object
            Me![OLEObj].Verb = acOLEVerbOpen    ' Tells Microsoft Access to
                                                ' open the application.
            Me![OLEObj].Action = acOLEActivate  ' Activates the application.
            Set WordObj = Me![OLEObj].Object.Application.WordBasic
            WordObj.ToolsMacro "Macro1", 1
            WordObj.FileClose 2
         End Sub
   						

7. Open the form in Form view and click the command button. Microsoft Word becomes the active application, runs the macro, and then returns to the form.

NOTE: In both examples, when the Automation object variable goes out of scope, the instance of Microsoft Word is unloaded, unless the object was created from a previous instance (already open).