Use Access to Run Word Macro 1

[Kamstars]

Currently I am opening a word document called Letter. In that word document I have a macro saved called mcrPerformMerge. Once the word document is open I want to run that macro. Is there a way? I have the section of code commented out below where I thought it should go. The word Run doesn't work alone, what should I put there?

Sub OpenWord()

Dim WordDoc As String
Dim WordApp As String
Dim FullPath As String

WordDoc = "H:\MyDocuments\Letter.doc"
WordApp = "G:\Office97\Office\WINWORD"
FullPath = WordApp & " " & WordDoc

Call Shell(FullPath, vbNormalFocus)

'Run ("Letter.doc!Project.NewMacros.mcrPerformMerge&quot

End Sub


Thanks for you help.

 

[rdodge]

You need to create an application variable of the word program, though not sure if you are working within the same version of Office or not, but I'm assuming you are for now, which means, you can get by with Early Binding method.

For this to work, you must have a reference set within Access VBA to "Microsoft Word Object x.0 Library"

Dim wdApp as New Word.Application, Doc as Document
Set Doc = wdApp.Documents.Open("H:\MyDocuments\Letter.doc&quot
Doc.NewMacros.mcrPerformMerge

When you are done, perform the following codes at the minimal:

Doc.Close
wdApp.Close

Please note:

I'm assuming that NewMacros is the name of the module within the document, "Letter.doc" and you are wanting to run the macro, "mcrPerformMerge" within the "NewMacros" module.

Ronald R. Dodge, Jr.
Production Statistician
Master MOUS 2000
When the going gets tough, the tough gets going.

 

[p27br]

hi

here's an explanaation on running word macro's using automation :
How to Use Automation to Run a Microsoft Word Macro

http://support.microsoft.com/default.aspx?scid=kb;en-us;154570

 

[Kamstars]

Thank you both very much for your help.