GetCursor

Mit dieser Funktion kann man den sichtbaren Cursor an den leistungsfähigeren nichtsichtbaren Cursor übergeben.

Basic

Function GetCursor( oDoc As Object ) As Object
' Übernahme des sichtbaren Cursors in eine TextRangeobject
 
     Dim oRange As Object, oRangeCursor As Object
     
     oRange = oDoc.CurrentController.Selection.getbyIndex(0)
     oRangeCursor = oDoc.Text.createTextCursorByRange( oRange )
     GetCursor = oRangeCursor
 
End Function