8.1.13 Wie kann man den ViewCursor dem TextCursor übergeben?
Man kann den ViewCursor an den TextCursor über das Range-Objekt übergeben, und umgekehrt.

Sub TextCursorToViewCursor
Dim myDoc as object
Dim myTextCursor as object
myDoc = thiscomponent
mytextCursor=mydoc.text.createtextcursor()
myViewCursor=myDoc.GetCurrentController.ViewCursor
myViewCursor.gotoRange(mytextcursor,false)
' oder umgekehrt
mytextcursor.gotoRange(myViewCursor,false)
End sub
Seitenanfang