View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
Peter V[_2_] Peter V[_2_] is offline
external usenet poster
 
Posts: 2
Default pasting excel range into a Word doc

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