Open Worddoc from Excel via VBA -> Paste

[Guest]

Hi Guys 'n Girls

in one of my Wordtemplates i have following lines:

dim e as excel.application
set e = excel. application

these lines work perfectly, it opens excel and i can
do the stuff that i want. No i want to go vice versa,
i want to do same in Excel:

dim w as word.application
set w = word.application

the reference to the word 10.0 Obj Library has been
set and i'm ready to go...but excel isn't! if i try these
lines, i get an activeX error! Only if i have opened
Word already manually the code works.

What am I doing wrong??

Any Help appreciated

Carlo

 

[moon]

Dim WRDAPP, WRDDOC
Set WRDAPP = CreateObject("Word.Application")
Set WRDDOC = WRDAPP.Documents.Open("C:\TEST.DOC")
'Or for a new doc:
'Set WRDDOC = WRDAPP.Documents.Add

WRDAPP.Visible = True
'WRDAPP.Quit

 

[Guest]

Thanks moon

Dim WRDAPP, WRDDOC
Set WRDAPP = CreateObject("Word.Application")
Set WRDDOC = WRDAPP.Documents.Open("C:\TEST.DOC")
'Or for a new doc:
'Set WRDDOC = WRDAPP.Documents.Add

WRDAPP.Visible = True
'WRDAPP.Quit