OpenOffice.org BASIC Guide.pdf - OpenOffice.org wiki

Editing Text Documents 101
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
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.
Retrieving and Modifying Text Contents
If a TextCursor contains a highlighted area, then this text is available by means of the
String property of the TextCursor object. The following example uses the String property to
display the first words of a sentence in a message box:
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
The first word of each sentence can be modified in the same way using the String property:
Dim Doc As Object
Dim Cursor As Object
Dim Proceed As Boolean
Doc = StarDesktop.CurrentComponent
Cursor = Doc.Text.createTextCursor
Do