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

More Than Just Text 121
Bookmarks
Bookmarks (Service
com.sun.star.text.Bookmark
) are TextContent objects. Bookmarks are created and inserted using the concept already
described previously:
Dim Doc As Object
Dim Bookmark As Object
Dim Cursor As Object
Doc = StarDesktop.CurrentComponent
Cursor = Doc.Text.createTextCursor()
Bookmark = Doc.createInstance("com.sun.star.text.Bookmark")
Bookmark.Name = "My bookmarks"
Doc.Text.insertTextContent(Cursor, Bookmark, True)
The example creates a Cursor, which marks the insert position of the bookmark and then
the actual bookmark object (Bookmark). The bookmark is then assigned a name and is
inserted in the document through insertTextContent at the cursor position.
The bookmarks of a text are accessed through a list called Bookmarks. The bookmarks can
either be accessed by their number or their name.
The following example shows how a bookmark can be found within a text, and a text
inserted at its position.
Dim Doc As Object
Dim Bookmark As Object
Dim Cursor As Object
Doc = StarDesktop.CurrentComponent
Bookmark = Doc.Bookmarks.getByName("My bookmarks")
Cursor = Doc.Text.createTextCursorByRange(Bookmark.Anchor)
Cursor.String = "Here is the bookmark"
In this example, the getByName method is used to find the bookmark required by means of
its name. The createTextCursorByRange call then creates a Cursor, which is positioned at
the anchor position of the bookmark. The cursor then inserts the text required at this point.