how to share variable between Excel VBA & Word VBA

[johnou]

Hi.

I am using Excel 2000 to Control Word 2000 for publication generation. I will need to pass certain variable from Excel VBA to Word VBA (I use Word VBA's Autoexec module to run the script once Excel opens the Word document). Does anyone know how to do it?

thanks,

John

[dk]

One way you could do it is this:-

In Word use something like this in a standard module:-

Sub WordMacro(VariableFromXL As String)
MsgBox VariableFromXL
End Sub

and in Excel use something like this:-

Sub OpenWordAndPassVariable()
Dim wdApp As Word.Application

YourVariable = "Hello there world!"

Set wdApp = CreateObject("Word.Application")

wdApp.Documents.Open "C:tempwordfile.doc"
wdApp.Visible = True

wdApp.Run "WordMacro", YourVariable

End Sub

You can pass up to 30 arguments using the Run method.

Also, the code above assumes you've set a reference to the Word object library in Tools, References.

HTH,
D

[johnou]

Thanks for your reply!

Are these codes for Excel 2000 or Excel 97.

I have Excel 97 and also click "Microsoft Word 8.0 Libary" but when I run the code I get an error message "Compile error: wrong number of arguments or invalid property assignment" at the line:
wdApp.Run "WordMacro", YourVariable
(.Run is highlighted).

Could you tell me why?

Thanks,

John