Thanks, but that doesn't work either, because I don't want
to create a new instance of Word each time I run this
subroutine. If I use CreateObject("word.application") I
get a new instance every time I call the procedure.


-----Original Message-----
Stratuser,

you can try this.

Sub copyexceltoword()

Set wd = CreateObject("word.application")
wd.Application.Visible = True
wd.Application.Documents.Open "c:\matt.doc" ' Open your
word document
Application.Visible = True

For a = 1 To 5

Application.Range("a" & a).Copy 'copy data from excel
wd.Selection.Paste 'Paste data into word
Next a



Set wd = Nothing 'Clear the memory. Very important.


End Sub


let me know if you need further help.


---
Message posted from http://www.ExcelForum.com/

.