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
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
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.
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.