Using VB to execute a Word macro

[samvonac]

I want to use a VB app to open a word doc and launch a macro. I have the
following code:

Sub Main()
Dim docsObj As Word.Documents
Dim docObj As Word.Document
Dim appWord As Word.Application
Set appWord = CreateObject("word.application&quot
Set docsObj = appWord.Documents
Set docObj = docsObj.Open("C:\mydoc.doc&quot
docObj.Application.Run ("MyMacro&quot
docObj.SaveAs "MyNewName.doc"

On Error Resume Next

docObj.Close

On Error GoTo 0

Set docsObj = Nothing
Set docObj = Nothing
appWord.Quit
End Sub


I get an error when it gets to "docObj.Application.Run ("MyMacro&quot" saying that
macro could not be found. I know that the macro exists and the macro is saved in
normal.dot.

I am using VB6 and Word2000. Any ideas?

Thanks in advance.

 

[CorporateRobot]

Instead of:
docObj.Application.Run ("MyMacro&quot

try something like:
appWord.Run "Project.Module1.MyMacro"

The code below was taken from this link:

http://support.microsoft.com/support/kb/articles/Q177/7/60.ASP

Sub WDTest()
Dim WD as Object

Set WD = CreateObject("Word.Application&quot

WD.Documents.Open "C:\My Documents\WordDoc.Doc"

' Note that the project name and module name are required to
' path the macro correctly.
WD.Run "Project.Module1.WordMacro"

End Sub