Enter na tekst

[plousje87]

Hoi,

Ik heb een userform aangemaakt voor een brief in VBA.
Verschillende vakken met adres, aanhef, datum etcc...
En ook een vak voor de brieftekst/ hoofdtekst.
In het word document heb ik bladwijzers neergezet waar de tekst uit de vakken moet komen te staan.

De hoofdtekst is telkens verschillend qua lengte, maar ik wil na de hoofdtekst 2 enters voordat het volgende vak (afsluiting en naam/functie) zijn tekst daar kan plaatsen. Er is dus geen vaste plaats voor. Hoe moet de code daarvoor worden?

Ik heb nu:

Private Sub cmdOK_Click()
On Error Resume Next

ActiveDocument.Bookmarks("Adres").Select
Selection.Text = Me.txtAdres.Text

ActiveDocument.Bookmarks("Plaats").Select
Selection.Text = Me.txtPlaats.Text

ActiveDocument.Bookmarks("Datum").Select
Selection.Text = Me.txtDatum.Text

ActiveDocument.Bookmarks("Onderwerp").Select
Selection.Text = Me.txtOnderwerp.Text

ActiveDocument.Bookmarks("Aanhef").Select
Selection.Text = Me.txtAanhef.Text

ActiveDocument.Bookmarks("Brieftekst").Select
Selection.Text = Me.txtBrieftekst.Text

Alvast bedankt!

 

[Jan van Asseldonk]

En als je je afsluitende tekst begint met 2 enters?

 

[heyajohnny]

Selection.Text = Me.txtBrieftekst.Text & vbCrLf & vbCrLf