Indrykket tekst i dokument fra tekstboks

Rem Måske noget i den retning:

Private Sub UserForm_Initialize()
Rem indsætning af data til test
    With Me.TextBox1
        .Text = "AAA" & vbCrLf & "BBB" & vbCrLf & "CCC" & vbCrLf
    End With
End Sub
Private Sub CommandButton1_Click()
Dim linje As String, tabel As Variant
    linje = Me.TextBox1
    tabel = Split(linje, vbCrLf)
   
    With ActiveDocument
        For x = 0 To UBound(tabel)
            Selection.EndKey Unit:=wdStory
            Selection.TypeText Text:=vbTab & tabel(x) & vbCrLf
        Next x
    End With
End Sub

Kigger på det senere (møde). Jeg glemte at skrive, at der evt. godt kan være flere linjer, kan faktisk variere fra til gang,

Ok

Er lidt presset - er det ok med i morgen?

Ok..

Den tekstboks, som det drejer sig om, bruges til idtastning og der vil af den grund være "variende indhold" af antal linjer. Jeg kan evt sende filen, hvis jeg ikke har forklaret det godt nok.

Hvis hver linje afsluttes med Ctrl+Enter - så kan antallet af linjer være "uendeligt"

I version 2 ser VBA-koden således ud:

Private Sub CommandButton1_Click()
Dim linje As String, tabel As Variant
    linje = Me.TextBox1
    tabel = Split(linje, vbCrLf)
   
    With ActiveDocument
        For x = 0 To UBound(tabel)
            Selection.EndKey Unit:=wdStory
            Selection.TypeText Text:=vbTab & tabel(x) & vbCrLf
        Next x
    End With
End Sub

Der kommer en fejlmelding:
Compile error
Variable not defined

Det er nok x der ikke er defineret

Dim x AS integer

Under den Dim linje, der er i forvejen

Ja, den var ikke defineret.
Men det fungerer ikke helt godt i den opbygning mit dolument har, så hvis du har tid til at kigge, vil jeg sende det til dig og det haster ikke.

Du er velkommen til at sende dok.

Et svar

Tak for hjælpen.