Hey Kornelia, Kornelia Lubke schrieb: [..]
> Wo ist der Denkfehler? > oListBox.SelectItemPos (0, true) > oDialog.Execute Hier?! Dein Makro wartet hier, bis die Dialogbox wieder geschlossen wird. Tia, und dann sollte die nächste Zeile eigentlich nicht mehr funktionieren - da die Listbox nicht mehr existiert. > sSelect = oListBox.getSelectedItem () was bringt hier "msgbox sSelect"? > oRangeCursor = JumpToBookmark (oDoc, sSelect) > > End Sub Ich denke, sSelect ist einfach leer. Dann funktioniert der Rest natürlich auch nicht. > Function JumpToBookmark (oDoc as Object, sSelect as String) as Object > Dim oBookmark as Object > oBookmark = oDoc.Bookmarks.getByName (sSelect) 'Fehlermeldung: > Argument ist nicht optional > oBookmarkAnchor = oBookmark.Anchor > oRangeCursor = oDoc.Text.createTextCursorByRange (oBookmarkAnchor) > JumpToBookmark = oRangeCursor > End Function Lösung: eigene kleine Sub, die ausgelöst wird über eine Schaltfläche in dem Dialog - oder - wie beendest du den Dialog oder bleibt der die ganze Zeit auf? Dann könntest du auch das Ereignis "Modifiziert" zum Aufruf benutzen. Oder eben - wenn du das Dialogfeld beendest - dann hast du ja sicher eine Schaltfläche - zuerst den gewählten Wert auslesen, in einer Variablen speichern, dann den Dialog schliesen (oDialog.endexecute()) und dann die nächste Sub aufrufen. Gruss 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]
