Application.SendKeys "{BS}"
Sub coverletterbuild()
Set oWord = CreateObject("Word.Application")
If Err Then
Set oWord = New Word.Application
WordWasNotRunning = True
End If
oWord.Visible = True
oWord.Activate
Set oDoc = oWord.Documents.Add("C:\TEST COVER.doc")
oDoc.Bookmarks("Line99").Range.InsertBefore "This is a test!" & vbNewLine
oDoc.Bookmarks("LineTEST").Range.InsertBefore "1!" & vbNewLine & "TESTT"
Application.SendKeys "{BS}"
End Sub
With oWord.Selection
.EndKey
.TypeBackspace
End With
That works, but how do i move the courser to work with it.
Or change the line it is selecting right now it is not effecting line that i need it to.