Supportnet / Forum / Textverarbeitung
VBA: Zeilenumbruch in einem Textfeld
Frage
Ich versuche in einem Textfeld einen 2zeiligen Text einzufügen, leider klappt es nicht mit dem Zeilenumbruch.
Mit InsertParagraph oder InsertParagraphAfter wird die 1. Zeile immer gelöscht und an deren Stelle die 2.Zeile eingefügt. Bsp:
Set meinTextfeld = ActiveDocument.Shapes.AddTextbox(-----)
with meinTextfeld.TextFrame.TextRange
.Text = "1. Zeile"
if sekZeile > 0 then
'hier soll ein Zeilenumbruch erfolgen (aber wie ???)
.Text = sekZeile & ": nächste Zeile"
End if 'sekZeile Integer-Var.
End with
Set meinTextfeld = Nothing
Vielen Dank im voraus!
Antwort 1 von PotzBlitz
Hallo Lamingo,
das Textfeld hat zwei Eigenschaften, die du ändern musst, um es mehrzeilig zu machen:
EnterKeyBehavior = True
MultiLine = True
Wenn die Eigenschaften eingestellt sind, kannst du beim Tippen mit der Eingabetaste einen Umbruch erzeugen. In VBA geht das am besten mit der Konstante für Wagenrücklauf und Zeilenvorschub vbCrLf:
Gruss
PotzBlitz
das Textfeld hat zwei Eigenschaften, die du ändern musst, um es mehrzeilig zu machen:
EnterKeyBehavior = True
MultiLine = True
Wenn die Eigenschaften eingestellt sind, kannst du beim Tippen mit der Eingabetaste einen Umbruch erzeugen. In VBA geht das am besten mit der Konstante für Wagenrücklauf und Zeilenvorschub vbCrLf:
Me.Textbox = "Zeile 1" & vbCrLf & "Zeile 2"Gruss
PotzBlitz