Bookmark fehler, wenn eingebettes Objekt makiert ist

[gerhard.muellner]

die folgende funktion "SelectionJumpToBookmark" funktioniert im writer nur solange kein eingebettes objekt makiert ist (grüne punkte um das objekt)

die funktion sucht das als string übergebene bookmark, und wenn diese existiert springt der cursor an die stelle des bookmarks.
zum Testen das macro ErrorTest aufrufen. (eine Datei mit eingebetteter Tabelle habe ich angehängt).

Code: Alles auswählen

function SelectionJumpToBookmark(Bookmark as string) as boolean
  dim cnt as long
  dim bm as string
  dim oBookmark as object
  
  cnt=ThisComponent.Bookmarks.count
  do
    cnt=cnt-1
	bm=ThisComponent.Bookmarks.ElementNames(cnt)
  loop until (cnt=0) or (bm=Bookmark)
  
  if (bm=Bookmark) then
	oBookmark=ThisComponent.Bookmarks.getByName(Bookmark).Anchor

was mache ich falsch?
	ThisComponent.CurrentController.getviewCursor().gotorange(oBookmark, False)
	SelectionJumpToBookmark=true
  else
	SelectionJumpToBookmark=false
  endif
end function

sub ErrorTest
  SelectionJumpToBookmark("Ende")
end sub

der laufzeitfehler entsteht in der zeile:
ThisComponent.CurrentController.getviewCursor().gotorange(oBookmark, False)

was muss ich tun damit das springen zum bookmark trotz makierten objekt funktioniet!

[komma4]

Code: Alles auswählen

' was mache ich falsch?
	ThisComponent.CurrentController.getviewCursor().gotorange(oBookmark, False)

was muss ich tun damit das springen zum bookmark trotz makierten objekt funktioniet!

getViewCursor() holt das markierte Objekt.

Erzeuge stattdessen einen Textcursor.

[DPunch]

Aloha

Wenn Dein Ziel ist, das Bookmark sichtbar anzuspringen, dann füg einfach folgende Zeile direkt vor der Fehlermeldung ein:

Code: Alles auswählen

ThisComponent.CurrentController.Select(ThisComponent.Text.Start)

[gerhard.muellner]

wieder eine prefekte lösung. vielen dank.