❤️ Helfen Sie noch heute, unser LibreOffice Forum zu erhalten! ❤️
Unterstützen Sie das LibreOffice-Forum und helfen Sie uns, unser Ziel für 2025 zu erreichen!

🍀 Jeder Beitrag zählt – vielen Dank für Ihre Unterstützung!🍀
Mit Ihrer Spende sichern Sie den Fortbestand, den Ausbau und die laufenden Kosten dieses Forums. 🌱


❤️ DANKE >> << DANKE ❤️

>> Dank Ihrer Unterstützung -> Keine Werbung für alle registrierten LibreOffice-Forum User! <<
🤗 Als Dankeschön werden Sie im Forum als LO-SUPPORTER gekennzeichnet. 🤗

Verzeichniseinträge automatisch löschen

WRITER hat alles, was Sie von einer modernen, voll ausgestatteten Textverarbeitung erwarten.
Antworten
commick
Beiträge: 13
Registriert: Mo 16. Jan 2017, 15:41

Verzeichniseinträge automatisch löschen

Beitrag von commick » Mo 16. Jan 2017, 15:54

Hallo liebe LO-Community,

ich konnte zu meinem Problem bisher leider keine Lösung finden:

Ausgangssituation:
Ich verwende eine Vorlage mit vorhandenem Stichwortverzeichnis. Dies habe ich mit Hilfe einer Konkordanzdatei erzeugt.
Lösche ich nun dieses Verzeichnis, werden leider die Verzeichniseinträge nicht mitgelöscht. Ich kann sie natürlich einzeln per Rechtsklick-Löschen-nächster-Löschen-usw. entfernen, das ist aber bei vielen größeren Dokument (50+ Seiten) eine sehr langwierige Aufgabe.

Mein Frage ist: Können diese "alten" Verzeichniseinträge über einen anderen Weg komplett gelöscht werden, so dass diese nicht wieder in einem neuen Stichwortverzeichnis erscheinen?

Ich hoffe, dass ich mich verständlich ausgedrückt habe. Vielen Dank schoneinmal für eure Antworten!

Viele Grüße
commick

commick
Beiträge: 13
Registriert: Mo 16. Jan 2017, 15:41

Re: Verzeichniseinträge automatisch löschen

Beitrag von commick » Fr 20. Jan 2017, 10:54

In der Zwischenzeit habe ich doch noch einen alten Post aus diesem Forum gefunden der meine Frage beantwortet
http://www.libreoffice-forum.de/viewtopic.php?t=12536

Dort wird auf ein Makro auf der OOo-Wikiseite von P. Eberlein verwiesen:
http://www.ooowiki.de/KonkordanzDatei.html

Es funktioniert auch unter meiner (aktuellen) Version von LibreOffice 5.2.4.2 (unter Linux Mate).
Im Folgenden das Makro aus der o.g. Quelle:

Code: Alles auswählen

Sub AllStichwortTilgen
  indexes = ThisComponent.getDocumentIndexes()
  for i=0 to indexes.count-1
    index = indexes(i)
    if index.supportsService("com.sun.star.text.DocumentIndex") then
      marks = index.DocumentIndexMarks
      for j=lBound(marks()) to uBound(marks())
        marks(j).dispose()
      next
      index.update()
    End If
  next
End Sub
Beste Grüße


An alle, die das LibreOffice-Forum gern nutzen und unterstützen wollen:


Bitte helfen Sie uns mit 7 Euro pro Monat.
Durch Ihren Beitrag tragen Sie dazu bei, unsere laufenden Kosten für die kommenden Monate zu decken.
Unkompliziert per Kreditkarte oder PayPal.
Als ein kleines Dankeschön werden Sie im LO-Forum als SUPPORTER gekennzeichnet.



Antworten