Re: [de-users] Suche nach fehlenden Querverweisen

Hallo Dieter, Robert, *,

ich kann euch ein Makro anbieten, das in dieser einfachen Form die 
"erste" Referenz findet, zu der das referenzierte Objekt nicht mehr 
vorhanden ist. "Erste" dürfte nicht der von der Reihenfolge erste, 
sondern der am frühesten angelegte Verweis sein.

Sub Main

oDoc = ThisComponent
oCtrler = oDoc.CurrentController
oTextFields = oDoc.Textfields.createEnumeration
do while oTextFields.hasMoreElements
    oTextField = oTextFields.nextElement
    if oTextField.CurrentPresentation = "Fehler: Referenz nicht 
gefunden" then
        oCtrler.select(oTextField.Anchor)
    end if
loop

End Sub

Das Makro darf man nicht von der Makro-IDE aus starten, dann klappt zwar 
der Select, aber die Seite mit dem ausgewählten Verweis wird nicht 
angezeigt. Aber es geht, wenn man das Makro über eine Tastenkombination 
startet, ich habe z.B. Alt+R verwendet.
Das ist nur ein einfaches Modell, man kann damit arbeiten, wenn man 
jeweils eine fehlerhafte Referenz sucht, sie korrigiert oder beseitigt 
und dann nach der nächsten sucht. Vielleicht fällt jemand eine 
Verbesserung ein.

Gruß

Gerhard

Am 06.07.2017 um 20:42 schrieb Robert Großkopf:
> Hallo Dieter,
> > der Umweg über PDF ist mir noch gar nicht in den Sinn gekommen. Ist zwar
> > umständlich, aber immerhin stellt das sicher, dass keine fehlenden
> > Querverweise übersehen werden. Vielleicht weiß aber doch noch jemand
> > eine elegantere Variante.
> >
> > > Dazu habe ich auch schon vor einiger Zeit eine Bugmeldung aufgegeben.
> > Weißt du noch die Bug-Nummer? Ich hatte auch schonmal in Bugzilla
> > nachgeschaut, aber auf die Schnelle nichts entdeckt.
> Ist dieser hier:
> https://bugs.documentfoundation.org/show_bug.cgi?id=58920
>
> Gruß
>
> Robert


--
Liste abmelden mit E-Mail an: users+unsubscribe@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