TextCurser nach unten

[Shirkan]

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

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

[komma4]

Wenn keine Zeile da ist, dann kann der Cursor auch nicht verschoben werden.

Ansonsten: verwende XRAY und/oder MRI zur Untersuchung Deiner Objekte

[Shirkan]

Hallo komma4,
vielen Dank für den Hinweis. Ich hatte in der Tat das Problem, den Objektbaum zu durchschauen. Da ist XRAY offensichtlich die richtige Wahl, was ich jetzt versuchen werde.
Danke Markus