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

Templates 86
Doc = StarDesktop.CurrentComponent
StyleFamilies = Doc.StyleFamilies
CellStyles = StyleFamilies.getByName("CellStyles")
The example uses the StyleFamilies property of a spreadsheet document to establish a list
containing all available cell templates.
The individual templates can be accessed directly by means of an index:
Dim Doc As Object
Dim Sheet As Object
Dim StyleFamilies As Object
Dim CellStyles As Object
Dim CellStyle As Object
Dim I As Integer
Doc = StarDesktop.CurrentComponent
StyleFamilies = Doc.StyleFamilies
CellStyles = StyleFamilies.getByName("CellStyles")
For I = 0 To CellStyles.Count - 1
CellStyle = CellStyles(I)
MsgBox CellStyle.Name
Next I
The loop added since the previous example displays the names of all cell templates one
after another in a message box.
Details about various formatting options
Each type of template provides a whole range of individual formatting properties. Here is
an overview of the most important formatting properties and the points at which they are
explained:
• Character properties,
com.sun.star.style.CharacterProperties
service
• Paragraph properties,
com.sun.star.text.Paragraph
service
• Cell properties,
com.sun.star.table.CellProperties
service