How To Run a WordBasic Macro from Within Visual FoxPro

MORE INFORMATION

For both of the following examples, it is assumed that a WordBasic macro named mymacro has been created. For more information on creating Word macros, please see Microsoft Word's Help file.

Example One (Using DDE)

   ichan = DDEInitiate("WinWord","System")
   *above command assumes that WinWord is running
   =DDEExecute(ichan,'[ToolsMacro "mymacro" ,.Run]')
   =DDETerminate(ichan)
				

Example Two (Using OLE automation)

   objWord = CREATEOBJECT("Word.Basic")
   objWord.ToolsMacro("mymacro",1)
   RELEASE objWord