TextCurser nach unten
Verfasst: Di, 08.11.2011 16:21
Hallo Leute,
ich füge zu Beginn eines Dokumentes eine Anrede ein. Hierzu habe ich einen TextCurser erzeugt. Nach Einfügen des Textes möchte ich den Curser nun eine Zeile nach unten verschieben. Kann mir jemand eine Hilfestellung geben. Ich möchte ausdrücklich nicht einen Absatz einfügen.
Schon mal Danke, Gruß Markus
ich füge zu Beginn eines Dokumentes eine Anrede ein. Hierzu habe ich einen TextCurser erzeugt. Nach Einfügen des Textes möchte ich den Curser nun eine Zeile nach unten verschieben. Kann mir jemand eine Hilfestellung geben. Ich möchte ausdrücklich nicht einen Absatz einfügen.
Schon mal Danke, Gruß Markus
Code: Alles auswählen
Sub AnredeEinfuegen (strText As String)
Dim oDoc As Object
Dim oTxtC As Object
oDoc = ThisComponent
oTxtC = oDoc.text.createTextCursor()
oDoc.Text().insertString(oTxtC, strText, True)
End Sub