How to Run a WordBasic Macro from an MS Excel Macro

' The following macro demonstrates how to run the WordBasic macro
' "Macro1" by using DDE

Sub RunWordMacro_DDE()
Dim chan

   ' Initiate a channel with Microsoft Word.
   chan = DDEInitiate("Winword", "System")

   ' Execute a command on the channel to run the Wordbasic macro.
   DDEExecute chan, "[Toolsmacro.name=""Macro1"",.Run]"

   ' Terminate the channel.
   DDETerminate chan

End Sub
				

' The following macro demonstrates how to run the WordBasic macro
' "Macro1" by using OLE Automation

Sub RunWordMacro_OLE()
Dim WordObj As Object

   ' Create the WordBasic object.
   Set WordObj = CreateObject("Word.Basic")
   '
   ' In Microsoft Excel 97, the line of code to use is
   '
   ' Set WordObj = CreateObject("Word.Basic.8")

   ' Run the WordBasic macro "Macro1".
   With WordObj
       .ToolsMacro Name:="Macro1", Run:=True
   End With

   ' Set the WordBasic object to nothing to end OLE Automation.
   Set WordObj = Nothing

End Sub