Hallo Liste,
hab ein Makro, was Textmarken in einer Listbox anzeigt. Durch Auswahl
einer Textmarke in dieser Listbox soll diese per Makro im Dokument
angesprungen werden (Ereignis 'Maustaste losgelassen'). Irgendwo hab ich
einen Fehler, aber ich weiß nicht wo. Wenn ich alles in einer Sub habe,
kann ich das Ereignis nicht dem Anklicken einer Textmarke in der Listbox
zuordnen.
--------code----------
....
For i = 0 to oDoc.getBookmarks.count - 1
vBookmark = oDoc.getBookmarks.getbyIndex (i)
oListBox.addItem (vBookmark.Name, 1)
Next i
oListBox.SelectItemPos (0, true)
oDialog.Execute
sSelect = oListBox.getSelectedItem ()
oRangeCursor = JumpToBookmark (oDoc, sSelect)
End Sub
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
----------code-----------
Wo ist der Denkfehler?
Danke und Gruß
Kornelia
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
