How To Pass Parameters to a Word 97 Macro

MORE INFORMATION

   oWordDoc=oWordObj.documents.Add("C:\word\testdot.dot")
				

Steps to create the Public Word macro

1. Start Microsoft Word 97.
2. Switch to the Visual Basic Editor by pressing ALT+F11 keys or point to Macro on the Tools menu, and click Visual Basic Editor.
3. On the View menu, click Project Explorer.
4. In the Project Explorer, open the Normal template project.
5. Open the Microsoft Word Objects\ThisDocument module within the template project.
6. Select the ThisDocument module.
7. On the View menu, click Code or right-click the ThisDocument module and select View Code.
8. In the code window for Normal-ThisDocument, enter the following macro:

         Public Sub Mainmacro(str As String, int1 As Integer)
            MsgBox str         'Display the string from VFP
            MsgBox int1        'Display the number from VFP
         End Sub
   							

9. On the File menu, click Save Normal, then re-select the File menu and click "Close and Return to Microsoft Word."

Visual FoxPro code

   CLEAR
   PUBLIC cname,nnum
   cname=SPACE(15)
   nnum=0
   @ 2,2 SAY "Enter a name to display" GET cname
   @ 4,2 SAY "Now enter a number     " GET nnum
   READ
   oWordObj=CREATEOBJECT('word.application')
   oWordDoc=oWordObj.Documents.Add
   oWordDoc.MainMacro(cname,nnum)
   oWordObj.QUIT