Hi. I received the following code in a previous question and wanted to know how to paste
the Excel range to a specific location within Word. Do I use a Bookmark?
Sub CopyFromExcelToWord()
Dim wdApp As Object
Dim wd As Object
On Error Resume Next
Set wdApp = GetObject(, "Word.Application")
If Err.Number <> 0 Then
Set wdApp = CreateObject("Word.Applica
tion")
End If
On Error GoTo 0
Set wd = wdApp.Documents.Open("C:\t
est.doc")
wdApp.Visible = True
Range("A1:J30").CopyPictur
e xlScreen, xlPicture
wd.Range.Paste
End Sub
Start Free Trial