Peter:

If you can set a bookmark into your Word doc at the point you want to paste,
then you can use something like this:
Sub Foo_GetWordHere()

Dim wdApp As Word.Application
Dim wdDoc As Word.Document

Set wdApp = CreateObject("Word.Application")
wdApp.Visible = True
Set wdDoc = wdApp.Documents.Open("C:\Documents and
Settings\username\Desktop\TestMe.doc")

wdDoc.Bookmarks("Here").Range.Paste

End Sub

Ed

"Peter V" wrote in message
...
Hi
I have managed to write code to copy a specified range in a worksheet and
paste it into a Word doc.

I have used:
Dim wdApp As Word.Application
Set wdApp = CreateObject("Word.Application")
wdApp.Visible = True
wdApp.Documents.Open "C:\Documents and Settings\tquser\My
Documents\docName.doc"
'copies data from Excel range
Worksheets("Data Sheet").Select
Range("A1:I18").Copy
'pastes data into specified Word doc
wdApp.Activate
wdApp.Selection.Paste
Application.CutCopyMode = False

However, it pastes it at the very top of the first page.
I would like to be able to specify a position on the page or, maybe on 3rd
or 4 the page if this is possible.
At the moment the 1st page has a Table which is used as a facesheet for a
fax document, so the range needs to be pasted below this Table.
I haven't a clue how to do it and I do hope someone can help.
Many thanks
Peter V