OpenOffice.org BASIC Guide - OpenOffice.org wiki

If TextElement.supportsService("com.sun.star.text.Paragraph") Then
Enum2 = TextElement.createEnumeration
' loop over all paragraph portions
While Enum2.hasMoreElements
TextPortion = Enum2.nextElement
If TextPortion.CharWeight = _
com.sun.star.awt.FontWeight.BOLD AND _
TextPortion.getPropertyState("CharWeight") = _
com.sun.star.beans.PropertyState.DIRECT_VALUE Then
TextPortion.setPropertyToDefault("CharWeight")
TextPortion.CharStyleName = "MyBold"
End If
Wend
End If
Wend
Editing Text Documents
The Structure of Text Documents
The previous section has already discussed a whole range of options for editing text documents, focusing on the
com.sun.star.text.TextPortion and com.sun.star.text.Paragraph services, which grant access to paragraph portions
as well as paragraphs. These services are appropriate for applications in which the content of a text is to be edited
in one pass through a loop. However, this is not sufficient for many problems. OpenOffice.org provides the
com.sun.star.text.TextCursor service for more complicated tasks, including navigating backward within a
document or navigating based on sentences and words rather than TextPortions.
The TextCursor
A TextCursor in the OpenOffice.org API is comparable with the visible cursor used in a OpenOffice.org
document. It marks a certain point within a text document and can be navigated in various directions through the
use of commands. The TextCursor objects available in OpenOffice.org Basic should not, however, be confused
with the visible cursor. These are two very different things.
Note – VBA : Terminology differs from that used in VBA: In terms of scope of function, the Range object
from VBA can be compared with the TextCursor object in OpenOffice.org and not — as the name possibly
suggests — with the Range object in OpenOffice.org.
The TextCursor object in OpenOffice.org, for example, provides methods for navigating and changing text which
are included in the Range object in VBA (for example, MoveStart, MoveEnd, InsertBefore, InsertAfter). The
corresponding counterparts of the TextCursor object in OpenOffice.org are described in the following sections.
Navigating within a Text
The TextCursor object in OpenOffice.org Basic acts independently from the visible cursor in a text document.
A program-controlled position change of a TextCursor object has no impact whatsoever on the visible cursor.
Several TextCursor objects can even be opened for the same document and used in various positions, which are
independent of one another.
A TextCursor object is created using the createTextCursor call:
Dim Doc As Object
Dim Cursor As Object
Doc = ThisComponent
Cursor = Doc.Text.createTextCursor()
The Cursor object created in this way supports the com.sun.star.text.TextCursor service, which in turn
provides a whole range of methods for navigating within text documents. The following example first moves the
TextCursor ten characters to the left and then three characters to the right:
Chapter 6 · Text Documents 75