HOWTO: Run a Word 97 Macro That Requires Arguments

MORE INFORMATION

Steps to Create the Word Macro

1. Start a new Word document (Document1).
2. Press ALT+F11 to start the Visual Basic Editor.
3. Click Project Explorer on the View menu to display the Project Explorer.
4. In the Project Explorer, locate the "ThisDocument" object for Document1's project. Right-click "ThisDocument" and select View Code.
5. In the code window for ThisDocument, add the following macro:

         Public Sub Macro1(s As String, i As Integer)
            MsgBox s        'Display the string
            MsgBox i * 10   'Display the product i and 10
   
         End Sub
   					

6. Press ALT+Q to exit the Visual Basic Editor and return to Document1.
7. Save this document as C:\TEST.DOC, and exit Word.

Steps to Create the Visual Basic Application

1. Start a new "Standard EXE" project.
2. On the Project menu, click References. Check "Microsoft Word 8.0 Object Library," and then click OK.
3. Add the following code to Form1.

         Option Explicit
   
         Dim objWordApp As Word.Application
         Dim objWordDoc As Word.Document
   
         Private Sub Form_Click()
   
            'Create a new instance of Word
            Set objWordApp = New Word.Application
   
            'Open the document containing the macro
            Set objWordDoc = _
               objWordApp.Documents.Open("C:\TEST.DOC")
   
            'Run the macro
            objWordDoc.macro1 "Hello!", 23
   
            'Close the document and clear the variables
            objWordDoc.Close
            Set objWordDoc = Nothing
            Set objWordApp = Nothing
   
         End Sub
   					

4. Press the F5 key to run the application. Click Form1 to run the Word macro.