I have managed to come up with the following code to highlight a range of cells of a table in excel that I need to post into a word document. I need help actually getting my "copyrange" selection into the word document.
Any ideas?
Sub Macro04()
Dim wApp As Word.Application
Dim wDoc As Word.Document
Set wApp = CreateObject("Word.Application")
wApp.Visible = True
wApp.Documents.Add
Dim Copyrange As String
Startrow = 3
Lastrow = 18
Let Copyrange = "A" & Startrow & ":" & "P" & Lastrow
Range(Copyrange).Select
wApp.Selection.Paste
wApp.ActiveDocument.SaveAs Filename:="firstdocument.doc"
wApp.ActiveDocument.Close
End Sub
Any ideas?
Sub Macro04()
Dim wApp As Word.Application
Dim wDoc As Word.Document
Set wApp = CreateObject("Word.Application")
wApp.Visible = True
wApp.Documents.Add
Dim Copyrange As String
Startrow = 3
Lastrow = 18
Let Copyrange = "A" & Startrow & ":" & "P" & Lastrow
Range(Copyrange).Select
wApp.Selection.Paste
wApp.ActiveDocument.SaveAs Filename:="firstdocument.doc"
wApp.ActiveDocument.Close
End Sub