aktuelle cursorposition im writer

[loewe66]

Hallo zusammen,
ich versuche gerade einen Text wie folgt an die aktuelle cursorpostion in einem writer-dokument zu bringen.

odoc=thiscomponent
otext=odoc.text
ocursor=otext.createTextcursor() '
'myViewCursor=myDoc.GetCurrentController.ViewCursor
otext.insertString(ocursor,"Mein Text" ,false)

aber leider schreibt er es immer genau an den dokumentenanfang. wie gehts denn richtig??
Danke für die Hilfe
Gruß Marc

[turtle47]

Hallo Marc,

Code: Alles auswählen

Sub Write_Cursor_Position
Dim oViewCursor as object
	odoc=thiscomponent
	oViewCursor= thiscomponent.GetCurrentController.ViewCursor
	otext=odoc.text
	otext.insertString(oViewCursor, "My New Text",false)
end sub

sollte es tun.

Viel Erfolg.

Jürgen

[loewe66]

Hallo Jürgen,
super danke das hilft.
LG Marc