I have the following macro that opens a word document from excel..

************************************************** ***

'Sub OpenWord()

'
' OpenWord Macro
' Macro recorded 28/02/2006 by rivers
'


Set appWd = CreateObject("Word.Application")
appWd.Visible = True

ChDir "S:\PROJECTS\Paypoint-zone"

appWd.Documents.Open FileName:="S:\PROJECTS\Paypoint-zone\Invoice.rtf"

'End Sub


************************************************** **

This opens word and the document "invoice".

I would like to know if anyone knows how I can write a macro to copy the
text in the word document into my excel spreadsheet that is open???????

(I usually do this by highlighting the text on the word doc and doing an
edit/paste special.)

Then close the word document and return to the excel spreadsheet....

HHHHHEEEEEEEELLLLLLLLPPPPPPPPP.................... .............