pasting excel range into a Word doc

[Peter V]

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

 

[Ed]

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]

Thank you Ed.
UnfortuanatelyI am not familiar with Bookmarks, so any help with them or
alternative method would be appreciated.
Peter V

 

[Ed]

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