OpenOffice.org BASIC Guide - OpenOffice.org wiki

Doc.Text.insertTextContent(Cursor, Table, False)
Rows = Table.getRows
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
More Than Just Text
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 = ThisComponent
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
Next
Next
The example creates a TextTables list containing all tables of a text that are traversed in a loop. OpenOffice.org
then creates a list of the associated cell names for each of these tables. There are passed through in turn in a loop.
If a cell contains a numerical value, then the example changes the formatting correspondingly. To do this, it first
creates a TextCursor object which makes reference to the content of the table cell and then adapts the
paragraph properties of the table cell.
Text Frames
Text frames are considered to be TextContent objects, just like tables and graphs. They may essentially consist
of standard text, but can be placed at any position on a page and are not included in the text flow.
As with all TextContent objects, a distinction is also made with text frames between the actual creation and
insertion in the document.
Dim Doc As Object
Dim TextTables As Object
Dim Cursor As Object
Dim Frame As Object
Doc = ThisComponent
Cursor = Doc.Text.createTextCursor()
Frame = Doc.createInstance("com.sun.star.text.TextFrame")
Doc.Text.insertTextContent(Cursor, Frame, False)
The text frame is created using the createInstance method of the document object. The text frame created in
Chapter 6 · Text Documents 85