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

More Than Just Text 112
Cols = Table.getColumns
For RowIndex = 1 To Rows.getCount()
For ColIndex = 1 To Cols.getCount()
CellName = Chr(Asc("A") - 1 + ColIndex) & RowIndex
Cell = Table.getCellByName(CellName)
Cell.String = "row: " & CStr(RowIndex) + ", column: " &
CStr(ColIndex)
Next
Next
A table cell is comparable with a standard text. It supports the createTextCursor interface
for creating an associated TextCursor object.
CellCursor = Cell.createTextCursor()
All formatting options for individual characters and paragraphs are therefore automatically
available.
The following example searches through all tables of a text document and applies the
right-align format to all cells with numerical values by means of the corresponding
paragraph property.
Dim Doc As Object
Dim TextTables As Object
Dim Table As Object
Dim CellNames
Dim Cell As Object
Dim CellCursor As Object
Dim I As Integer
Dim J As Integer
Doc = StarDesktop.CurrentComponent
TextTables = Doc.getTextTables()
For I = 0 to TextTables.count - 1
Table = TextTables(I)
CellNames = Table.getCellNames()
For J = 0 to UBound(CellNames)
Cell = Table.getCellByName(CellNames(J))
If IsNumeric(Cell.String) Then
CellCursor = Cell.createTextCursor()
CellCursor.paraAdjust =
com.sun.star.style.ParagraphAdjust.RIGHT
End If