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