Hey Kornelia,
hmm, also da sind diverse "Fragezeichen" im Code.
Fangen wir mal an:
Kornelia Lubke schrieb:
> ---code---
> DialogLibraries.LoadLibrary ("Standard")
> oDialog = CreateUnoDialog (DialogLibraries.Standard.dTextmarke)
> oListBox = oDialog.getControl ("ListBox1")
> For i = 0 to ubound (oListBox.model.StringItemList ())
Was soll denn das? Hier machst du eine Schleife über die Anzahl der
schon vorhandenen Listboxeinträge? Wozu? Wenn die Listbox noch leer ist,
wird die Schleife gar nicht durchlaufen!
> 'oBookmark = oDoc.Bookmarks.getByIndex (i)
> sBookmarkName = oDoc.Bookmarks.getbyName ()
Hier benötigst du den String des Bookmark-Namens. So erhälst du den aber
nicht. Richtig wäre:
sBookmarkName = oDoc.Bookmarks.getByIndex(i).name
Jetzt muss aber die Schleife über alle Bookmarks laufen - zum Beispiel:
For i = 0 to oDoc.bookmarks.getCount()-1
GetCount() liefert die Anzahl aller Bookmarks im Dokument, -1 deswegen,
da die Schleife bei 0 beginnt!
> oListBox.addItem (sBookmarkName, 1) 'Hinzufügen von Listen-Strings
Ja, aber wieso bei 1, also in der 2. Position? Die
Positionsbezeichnungen beginnen immer mit 0 (Array), also solltest du
auch bei 0 beginnen!
> MsgBox oListBox.model.StringItemList (i)
??? OK, Testzwecke
> Next i
> oListBox.SelectItemPos (0, true)
> oDialog.Execute
> oSelect = oListBox.SelectedItem
> MsgBox oSelect
Also ok, der folgende Code (zusammengefasst) schreibt dir alle im
Dokument vorhandenen Bookmarks in die Listbox:
>----code----<
DialogLibraries.LoadLibrary ("Standard")
oDialog = CreateUnoDialog (DialogLibraries.Standard.Dialog1)
oListBox = oDialog.getControl ("ListBox1")
For i = oDoc.Bookmarks.getCount()-1 to 0 step -1
sBookmarkName = oDoc.Bookmarks.getbyIndex(i).name
oListBox.addItem (sBookmarkName, 0) 'Hinzufügen von Listen-Strings
Next i
oListBox.SelectItemPos (0, true)
oDialog.Execute
>---code---<
Dadurch, dass die Schleife rückwärts läuft, bekommst du die richtige
Reihenfolge der Bookmark-Einträge.
Viele Grüße
Thomas
--
## Marketing deutschsprachiges Projekt
## http://de.openoffice.org - www.openoffice.org
## Vorstand OpenOffice.org Deutschland e.V.
## Mitglieder willkommen: www.OOoDeV.org
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
