OpenOffice.info

wieder eine prefekte lösung. vielen dank.

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

Aloha

Wenn Dein Ziel ist, das Bookmark sichtbar anzuspringen, dann füg einfach folgende Zeile direkt vor der Fehlermeldung ein:
[code]ThisComponent.CurrentController.Select(ThisComponent.Text.Start)[/code]

[quote="gerhard.muellner"]
[code]
' was mache ich falsch?
ThisComponent.CurrentController.getviewCursor().gotorange(oBookmark, False)[/code]
was muss ich tun damit das springen zum bookmark trotz makierten objekt funktioniet![/quote]

[color=#008000]getViewCursor()[/color] holt das markierte Objekt.

Erzeuge stattdessen einen Textcursor.

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

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]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
[/code]

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!