Hi all i have the code below that opens a word document and then pastes the contents of selected cells in to it, the code works fine, but what i would like to be able to do is open a word template called "Data Letter" stored in My Documents and then paste the cells contents 3 lines down from the header, any ideas?
Code
Sub wrdstart()
Dim appwd As Object
On Error GoTo notloaded
Set appwd = GetObject(, "Word.Application")
notloaded:
If Err.Number = 429 Then
Set appwd = CreateObject("Word.Application")
End If
appwd.Visible = True
On Error GoTo 0
With appwd
.documents.Add
.Selection.TypeText Text:=vbTab & vbTab & vbTab & vbTab & vbTab & vbTab & vbTab & vbTab & vbTab
Range("A1:A5").Copy
.Selection.Paste
End With
End Sub
Display More
Regards,
Simon