Activation of Excel VBA to Print Word Document 1

[PBAPaul]

I have Excel VBA code that opens a Word 2010 document and calls the Word macro. The Word macro is a simple print program which I have checked and it works as it should.

If I step through the Excel macro then everything works as intended. However if I attempt to run the macro, it gets to the "oWord.Run MacroName" line and then I get the following error display!

Sub PrintWordDoc()
    Dim oWord As Word.Application
    Dim oDoc As Word.Document
    
    Set oWord = CreateObject("Word.Application")
    Set oDoc = GetObject("D:\_DATA\My_Doc.docm")
    oWord.Visible = True

    oWord.Run MacroName:="PrintCarryDoc"
    oWord.ActiveDocument.Save
    oWord.Quit

    Set oWord = Nothing

End Sub

Can anybody help please? It is driving me demented!

 

[SkipVought]

Hi,

Having instantiated the oWord application object, it would be better if the next statement were...

Set oDoc = oWord.Documents.Open("D:\_DATA\My_Doc.docm")

...otherwise the oWord object has no relation to the oDoc object.

Skip,
[sub]
Just traded in my OLD subtlety...
for a NUance![/sub]

 

[PBAPaul]

Great! Thank you.

 

[Andrzejek]

Out of curiosity...
When you[tt]
Dim oWord As Word.Application[/tt] (early binding)
your oWord at this point is a Word.Application object.

Then why:[tt]
Set oWord = CreateObject("Word.Application")[/tt]
Again?


Have fun.

---- Andy

A bus station is where a bus stops. A train station is where a train stops. On my desk, I have a work station.

 

[strongm]

>your oWord at this point is a Word.Application object

It isn't, you know. At this point no object has been instantiated.

 

[macropod]

If you want to avoid having the line:
Set oWord = CreateObject("Word.Application")
you could use:
Dim oWord As New Word.Application

That way, a new Word instance is created when you first reference it, as in:
Set oDoc = oWord.Documents.Open("D:\_DATA\My_Doc.docm")

Cheers
Paul Edstein
[MS MVP - Word]