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

Overview of Central Interfaces 72
MsgBox "Sheet1 not available"
End If
com. sun. star. container. XNameContainer Interface
The XNameContainer interface takes on the insertion, deletion and modification of
subordinate elements in a basic object. The functions responsible are insertByName,
removeByName and replaceByName.
The following is a practical example of this. It calls a text document, which contains a
StyleFamilies object and uses this to in turn make the paragraph templates
(ParagraphStyles) of the document available.
Dim StyleFamilies As Object
Dim ParagraphStyles As Object
Dim NewStyle As Object
StyleFamilies = Textdoc.StyleFamilies
ParagraphStyles = StyleFamilies.getByName("ParagraphStyles")
ParagraphStyles.insertByName("NewStyle", NewStyle)
ParagraphStyles.replaceByName("ChangingStyle", NewStyle)
ParagraphStyles.removeByName("OldStyle")
The insertByName line inserts the NewStyle style under the name of the same name in the
ParagraphStyles object. The replaceByName line changes the object behind ChangingStyle
into NewStyle. Finally, the removeByName call removes the object behind OldStyle from
ParagraphStyles.
Index- Based Access to Subordinate Objects
The XIndexAccess and XIndexContainer interfaces are used in objects which contain
subordinate objects and which can be addressed using an index.
XIndexAccess provides the methods for accessing individual objects. XIndexContainer
provides methods for inserting and removing elements.
com. sun. star. container. XIndexAccess Interface
XIndexAccess provides the getByIndex and getCount methods for calling the subordinate
objects. getByIndex provides an object with a particular index. getCount returns how many
objects are available.
Dim Sheets As Object
Dim Sheet As Object
Dim I As Integer
Sheets = Spreadsheet.Sheets