Könyvjelzők

A könyvjelzők (com.sun.star.text.Bookmark szolgáltatás) TextContent objektumok. A könyvjelzők a már előzőleg ismertetett módon hozhatók létre és szúrhatók be:

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 = "Saját könyvjelzők"

Doc.Text.insertTextContent(Cursor, Bookmark, True)

A példaprogram létrehoz egy Cursor objektumot, amely a könyvjelző beszúrási pontját jelöli, majd létrehozza magát a könyvjelzőobjektumot (Bookmark). Ezután a könyvjelzőhöz rendel egy nevet, és beszúrja a dokumentumba az insertTextContent metódussal a kurzorpozícióban.

A szöveg könyvjelzőit a Bookmarks lista segítségével lehet elérni. A könyvjelzőket a nevük vagy számuk alapján lehet elérni.

a következő példa bemutatja, hogyan kereshető meg egy könyvjelző a szövegen belül, és hogyan szúrható be szöveg a helyére.

Dim Doc As Object

Dim Bookmark As Object

Dim Cursor As Object



Doc = StarDesktop.CurrentComponent



Bookmark = Doc.Bookmarks.getByName("Saját könyvjelzők")



Cursor = Doc.Text.createTextCursorByRange(Bookmark.Anchor)

Cursor.String = "Itt van a könyvjelző."

Ebben a példában a getByName metódussal keresi meg a program a neve szerint a könyvjelzőt. Ezután a createTextCursorByRange metódus létrehoz egy Cursor objektumot, amelyet a könyvjelző pozíciójába szúr be. Ezután a kurzorobjektum beszúrja a kívánt szöveget ezen a helyen.