Re: [de-users] Writer -> Makro -> Sprung zur ersten Seite

Hallo Volker,

Am 05.02.2012 14:42, schrieb Volker Lenhardt:
> Aber versuch es doch einmal mit folgendem Workaround

Danke für Deinen Vorschlag. Aber dieser hat mir auch nicht weiter 
geholfen. Allerdings bin ich in der Ursachenforschung etwas weiter gekommen.

ThisComponent.CurrentController.getViewCursor().jumpToFirstPage() 
funktioniert nur bei einem bereits geöffneten Dokument (logisch).

Ich habe das Makro (Code s. weiter unten) jedoch unter Extras -> 
Anpassen -> Ereignisse in "Laden des Dokumentes beendet" eingebunden. 
Dies scheint das Problem zu sein. "Wait 100" löst das Problem auch 
nicht. Hast Du diesbezüglich noch eine Idee?

Makrocode:

sub DokumentLadenBeendet
 sAbfrageMsgBoxPositionCursor = MsgBox ("Soll Cursor an der zuletzt 
bearbeiteten Position stehen (Nein: Cursor am Textanfang und 
Begriffsuche)?",4)
 Select Case sAbfrageMsgBoxPositionCursor
  Case = 6 'Ja
  Case = 7 'Nein
 ThisComponent.CurrentController.getViewCursor().jumpToFirstPage()
 oDescriptor = ThisComponent.createSearchDescriptor()
  With oDescriptor
   .SearchString = sSuchbegriff
   .SearchWords = true
   .SearchCaseSensitive = False
  End With
 oFound = ThisComponent.findFirst(oDescriptor)
  Do While Not IsNull(oFound)
   Print oFound.getString()
   oFound = ThisComponent.findNext(oFound.End, oDescriptor)
  Loop
 End Select
end sub

Gruß

Jochen

--
Informationen zum Abmelden: E-Mail an users+help@de.libreoffice.org
Probleme? http://de.libreoffice.org/hilfe-kontakt/mailing-listen/abmeldung-liste/
Tipps zu Listenmails: http://wiki.documentfoundation.org/Netiquette/de
Listenarchiv: http://listarchives.libreoffice.org/de/users/
Alle E-Mails an diese Liste werden unlöschbar öffentlich archiviert