Hallo Thomas,
ich hab noch so einiges ausprobiert, auch Deine Idee mit der SUB (s. u.).
> > 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 ()
Doch, sSelect funktioniert. Deshalb auch als Test die folgende Zeile:
> was bringt hier "msgbox sSelect"?
Zeigt mir den Wert von sSelect an.
> > oRangeCursor = JumpToBookmark (oDoc, sSelect)
> >
> > End Sub
> Ich denke, sSelect ist einfach leer. Dann funktioniert der Rest
> natürlich auch nicht.
Nein, ist es nicht. Siehe oben.
> > 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?
Genau so hatte ich es mit der Funktion gedacht. Die Schaltfläche ist ein
'OK'-Button und beim Raufklicken sollte der Cursor zu der Textmarke
springen, die ich vorher durch Selektieren für sSelect festgelegt habe.
Und hier komme ich nicht weiter.
> 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.
Der Wert für sSelect bleibt solange erhalten, wie die eine SUB läuft,
danach setzt OOo ihn wieder zurück, obwohl ich sSelect als globale
Variable außerhalb der SUB definiert habe. Habe ich da was falsch
verstanden? Und wie muss ich die Variablen definieren, damit folgender
Fehler in der Zeile nicht mehr auftritt:
oBookmark = oDoc.Bookmarks.getByName (sSelect) 'Fehlermeldung: Argument
ist nicht optional
Ich übergeb doch hier sSelect (als String) an oBookmark (als Objekt)?
Ich wäre Dir dankbar, wenn Du mein Denkknäuel entwirren könntest. ;-)
Grüße
Kornelia
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
