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


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