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

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

Thank you Ed.
UnfortuanatelyI am not familiar with Bookmarks, so any help with them or
alternative method would be appreciated.
Peter V
"Ed" wrote in message
...
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

A Bookmark is a Word field that exists in a specific position in a Word
document. It can contain almost anything, and can also be used just as a
place marker when you GoTo that bookmark. Open Word, open Help (F1), and
look up "bookmark". You will soon know quite a bit about bookmarks! <g
They can be set, populated, found, and deleted in code also - open the Word
VBA window and use F1 there to get code help for bookmarks.

ED

"Peter V" wrote in message
...
Thank you Ed.
UnfortuanatelyI am not familiar with Bookmarks, so any help with them or
alternative method would be appreciated.
Peter V
"Ed" wrote in message
...
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