A szöveget a program a mondatjelek alapján tagolja mondatokká. Például a pontot a mondat végeként értelmezi a program.

A Kijelölés paraméter egy boolean (logikai) érték, amely megadja, hogy a kurzor által bejárt területet ki kell-e jelölni. Ezenfelül minden navigálási metódus visszaad egy paramétert, amely azt jelzi, hogy a navigálás sikeres volt-e, vagy a kevés szöveg miatt sikertelen.

A következő lista az olyan metódusokat sorolja fel, amelyekkel a TextCursor használatával a kijelölt részek szerkeszthetők, és amelyek támogatják a com.sun.star.text.TextCursor szolgáltatást:

• collapseToStart () - visszavonja a kijelölést, és a TextCursort az előzőleg kijelölt terület elejére mozgatja.

• collapseToEnd () - visszavonja a kijelölést, és a TextCursort az előzőleg kijelölt terület végére mozgatja.

• isCollapsed () - True (igaz) értéked ad vissza, ha a TextCursor nem jelölt ki egy területet sem.

Szöveg formázása a TextCursorral

A com.sun.star.text.TextCursor szolgáltatás támogatja az összes karakter- és bekezdéstulajdonságot, amelyek már ismertetve voltak a fejezet elején.

A következő példa bemutatja, ezek hogyan használhatók a TextCursorral együtt. A program végig lépdel egy teljes dokumentumon, és minden mondat első szavát félkövérré formázza.

Dim Doc As Object   

Dim Cursor As Object

Dim Proceed As Boolean



Doc = StarDesktop.CurrentComponent

Cursor = Doc.Text.createTextCursor



Do 



   Cursor.gotoEndOfWord(True)

   Cursor.CharWeight = com.sun.star.awt.FontWeight.BOLD

   Proceed = Cursor.gotoNextSentence(False)

   Cursor.gotoNextWord(False)



Loop While Proceed 

A példaprogram először létrehoz egy dokumentumobjektumot a megnyitott szöveg számára. Ezután végiglépdel a teljes szövegen mondatról mondatra, kijelöli az első szavakat és félkövérré formázza azokat.

Szöveg tartalmának beolvasása és módosítása

Ha a TextCursor kijelölt területet tartalmaz, akkor ez a szöveg elérhető a TextCurson objektum String tulajdonságán keresztül. A következő példa a String tulajdonságot használja, hogy megjelenítse a mondatok első szavát egy üzenetablakban:

Dim Doc As Object   

Dim Cursor As Object

Dim Proceed As Boolean



Doc = StarDesktop.CurrentComponent

Cursor = Doc.Text.createTextCursor



Do 



   Cursor.gotoEndOfWord(True)

   MsgBox Cursor.String

   Proceed = Cursor.gotoNextSentence(False)

   Cursor.gotoNextWord(False)

Loop While Proceed 

A mondatok első szava ugyanígy módosítható a String tulajdonság használatával:

Dim Doc As Object   

Dim Cursor As Object

Dim Proceed As Boolean



Doc = StarDesktop.CurrentComponent

Cursor = Doc.Text.createTextCursor



Do 



   Cursor.gotoEndOfWord(True)

   Cursor.String = "Helló"

   Proceed = Cursor.gotoNextSentence(False)

   Cursor.gotoNextWord(False)



Loop While Proceed 

Ha a TextCursor kijelölt területet tartalmaz, a String tulajdonság lecseréli azt egy új szöveggel. Ha nincs kijelölve semmi, akkor a szöveg a TextCursor aktuális pozíciójában lesz beszúrva.