OpenOffice.org BASIC Guide - OpenOffice.org wiki

isEndOfSentence ()
returns True if the TextCursor is at the end of a sentence.
gotoStartOfParagraph (Expand)
jumps to the start of the current paragraph.
gotoEndOfParagraph (Expand)
jumps to the end of the current paragraph.
gotoNextParagraph (Expand)
jumps to the start of the next paragraph.
gotoPreviousParagraph (Expand)
jumps to the start of the previous paragraph.
isStartOfParagraph ()
returns True if the TextCursor is at the start of a paragraph.
isEndOfParagraph ()
returns True if the TextCursor is at the end of a paragraph.
Editing Text Documents
The text is divided into sentences on the basis of sentence symbols. Periods are, for example, interpreted as
symbols indicating the end of sentences. (In English, at least, they must be followed by a space, tab, or return for
this to work.)
The Expand parameter is a Boolean value which specifies whether the area passed over during navigation is to be
highlighted. All navigation methods furthermore return a Boolean parameter which specifies whether the
navigation was successful or whether the action was terminated for lack of text.
The following is a list of several methods for editing highlighted areas using a TextCursor and which also
support the com.sun.star.text.TextCursor service:
collapseToStart ()
resets the highlighting and positions the TextCursor at the start of the previously highlighted area.
collapseToEnd ()
resets the highlighting and positions the TextCursor at the end of the previously highlighted area.
isCollapsed ()
returns True if the TextCursor does not cover any highlighting at present.
Formatting Text with TextCursor
The com.sun.star.text.TextCursor service supports all the character and paragraph properties that were presented
at the start of this chapter.
The following example shows how these can be used in conjunction with a TextCursor. It passes through a
complete document and formats the first word of every sentence in bold type.
Dim Doc As Object
Dim Cursor As Object
Dim Proceed As Boolean
Doc = ThisComponent
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
The example first creates a document object for the text that has just been opened. Then it iterates through the
entire text, sentence by sentence, and highlights each of the first words and formats this in bold.
Chapter 6 · Text Documents 77