Word brief automatisch laten opmaken

[harolda1980]

Ik ben bezig automatisch een brief te laten opmaken.
In de code kom ik al een heel eind. Alleen kan ik nu niet de cursor verplaatsen om op de juiste plek de tekst invoeren. En een lege regel invoegen.

Sub leveranciersbrief()
Dim wdApp As Word.Application
Dim wdDoc As Document
Dim wdSln As Selection

Set wdApp = New Word.Application
Set wdDoc = wdApp.Documents.Open("Z:\Applicaties\doc4.dotx")
Set wdSln = wdApp.Selection

    wdApp.Visible = True

    With wdSln

            .TypeText ("Leveranciers aanmelding")
            .TypeText ("Tekstregel")
            .GoToNext (wdGoToEndnote)
            .TypeText ("Tekstregel")

    End With
    wdDoc.SaveAs ("Z:\Applicaties\testtest2.docx")
    wdDoc.Close
    wdApp.Visible = False

Set wdApp = Nothing
Set wdDoc = Nothing

End Sub

 

[OctaFish]

Deze regel toevoegen:

            .TypeText vbCr