OpenOffice.info

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

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

Ansonsten: verwende [url=http://bernard.marcelly.perso.sfr.fr/index2.html]XRAY[/url] und/oder [url=http://extensions.services.openoffice.org/project/MRI]MRI[/url] zur Untersuchung Deiner Objekte

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

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]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
[/code]