Hervorgehobene Absätze entfernen

[Mau]

Liebe ExpertInnen,
vor zwei Jahren hatte ich schon ein sehr ähnliches Problem, dann funktionierte es eine Weile, und jetzt aber wieder nichts mehr.

Ein freundlicher Mensch hat mir eine Buchübersetzung zur weiteren Bearbeitung übergeben, in der sämtliche Absätze gedoppelt sind: Die erste Version enthält eine Hervorhebungsfarbe (#00FFFF), die zweite keine. Die Absätze mit den Hervorhebungen kann ich nicht gebrauchen.
Ich habe sie erst mit Suchen und ersetzen / Formatierung Farbe zu entfernen versucht. Danach steht, wie erwartet, unter dem Feld Suchen: Hellcyan, nicht transparent und ist ansonsten leer. Weitere Optionen sind keine aktiviert. Ein Klick auf Vorherigen / Nächsten suchen oder Ersetzen bringt dann aber immer nur die Meldung Suchbegriff nicht gefunden heraus.
Bei AltSearch habe ich keine Möglichkeit gefunden, eine Hervorhebungsfarbe suchen zu lassen.

[Mondblatt24]

Suchbegriff nicht gefunden

Ich musste bis Version 7.6.7.2 zurückgehen, bis mir die Meldung nicht mehr angezeigt wurde und die Absätze entsprechend gefunden wurden.

[Pit Zyclade]

Du mußt methodisch korrekter vorgehen!
1. die Überschriften und Fußnoten (z.B. 42) müssen händisch umformatiert werden, damit sie nicht gelöscht werden von den nun folgenden Maßnahmen
2. Menü "Suchen und Ersetzen"
2.1. unter Suchen und Ersetzen leer lassen
2.2. Attribute: "Farbe der Zeichenhervorhebung" ankreuzen
2.3. Ok
2.4. Alle Suchen
2.5. Schließen

Jetzt sind alle fraglichen Absätze markiert und werden mit Entf-Taste gelöscht.

Anmerkung: Das ist alles direkt formatiert gewesen und leider nicht mit einer Absatz- oder Zeichenformatvorlage!

[miesepeter]

AltSearch.oxt

Bei AltSearch habe ich keine Möglichkeit gefunden, eine Hervorhebungsfarbe suchen zu lassen.

Das geht schon:

• Suche nach: Eigenschaften
• Zeichenhintergrund (markiert)
  (Wenigstens ein Zeichen mit dem entsprechenden Zeichenhintergrund muss zwingend markiert werden.)
• Suchbegriff: [:::CharBackColor::] (wird automatisch in die Suchzeile eingetragen)

Falsche Fußnotenanker:
Die falschen Fußnotenanker sind ebenso blau markiert und werden von der Suche erfasst.
Die Suche findet 1095 Zeichen mit hellblauem Hintergrund.

-----------------

Ich musste bis Version 7.6.7.2 zurückgehen, bis mir die Meldung nicht mehr angezeigt wurde und die Absätze entsprechend gefunden wurden.

Ich kann deine Beobachtung bestätigen.
Schreibst du hierzu eine Meldung im Bugzilla? - Danke!

-----------------
Ciao
-----------------
Version: 25.2.5.2 (X86_64) / LibreOffice Community
Build ID: 520(Build:2)
CPU threads: 4; OS: Linux 5.15; UI render: default; VCL: gtk3
Locale: de-DE (de_DE.UTF-8); UI: de-DE
Ubuntu package version: 4:25.2.5~rc2-0ubuntu0.22.04.1~lo1
Calc: threaded

[Mau]

LIebe Leute,
danke für die Antworten.
Lieber Pit, dein Weg funktioniert eben nicht bei. Der Vorgänger, von dem ich die Datei habe, hat brav alles von Hand formatiert.

Lieber Miesepeter, dein Weg hat mit Schritt-für-Schritt-Suche genau zwei Mal funktioniert, die Absätze waren markiert und konnten mit Ersetzen entfernt werden; danach kam die angehängte Fehlermeldung. Und kein Trick wollte helfen, das Tool zum Weitermachen zu bewegen.

AltSearch.oxt

• Suche nach: Eigenschaften
• Zeichenhintergrund (markiert)
  (Wenigstens ein Zeichen mit dem entsprechenden Zeichenhintergrund muss zwingend markiert werden.)
• Suchbegriff: [:::CharBackColor::] (wird automatisch in die Suchzeile eingetragen)

-----------------
Version: 25.2.5.2 (X86_64) / LibreOffice Community
Build ID: 520(Build:2)
CPU threads: 4; OS: Linux 5.15; UI render: default; VCL: gtk3
Locale: de-DE (de_DE.UTF-8); UI: de-DE
Ubuntu package version: 4:25.2.5~rc2-0ubuntu0.22.04.1~lo1
Calc: threaded

Liebe Grüße,
Mau

P.S.: Ich habe jetzt Version 24.8.

[mikele]

Hallo,
ich habe mal ein kleine Makro zusammengbastelt, dass die entsprechenden Absätze löschen sollte.
Allerdings habe ich festgestellt, dass manche Absätze nur teilweise cyan (#00ffff) sind. Daher hier die radikale Maßnahme, dass wenn das erste Zeichen die richtige Farbe hat, der gesamte Absatz gelöscht wird.

Code: Alles auswählen

sub absatz_mit_farbe_entfernen
     ocursor=ThisComponent.Text.createTextCursor
     oCursor.gotoStart(False)
     'für einen sauberen Schleifendurchlauf kurz 1 nach rechts ...
     oCursor.goRight(1,False)
     'Zähler initialisieren
     z=0
	Do
		' ... und wieder zurück
		oCursor.goLeft(1,False)
		farbe=-1
		'Wenn kein leerer Ansatz, dann lese die Hintergrundfarbe des 1. Zeichens
		if not ocursor.isEndOfParagraph then
			oCursor.goRight(1,True)
			farbe=ocursor.charbackcolor	
		end if
		'bis zum Absatzende auswählen
		oCursor.gotoEndOfParagraph(True)
		'Absatzendemarkierung mitnehmen
		oCursor.goRight(1,true)
		'wenn die richtige Farbem, dann den gesamten Absatz löschen
		if farbe=65535 then
				ocursor.string=""
		end if
		'mitzählen
		z=z+1
		'im Falle, dass nicht gelöscht werden musste, zur Sicherheit
		ocursor.collapsetoend()
	Loop While oCursor.goRight(1,False) 
	msgbox z & " Absätze entfernt"
end sub

In deinem Beispieldokument habe ich so 1654 Absätze entfernt.

[miesepeter]

AltSearch.oxt

Miesepeter, dein Weg hat mit Schritt-für-Schritt-Suche genau zwei Mal funktioniert, die Absätze waren markiert und konnten mit Ersetzen entfernt werden; danach kam die angehängte Fehlermeldung. Und kein Trick wollte helfen, das Tool zum Weitermachen zu bewegen.

AltSearch.oxt ist hier wohl nicht perfekt.

EDIT
Wie ich gerade feststellte, markierte AltSearch.oxt auch andere Zeichen, die nicht durch Hellcyan gekennzeichnet waren. Damit fällt es aus für deine Zwecke. @mikele hat hier wohl die Lösung.

PS:
Mir fällt gerade auf, dass deine Beispieldatei fast 500-mal heruntergeladen wurde. Respekt (vor der KI)!

[Mau]

Lieber mikele, lieber miesepeter,

über Makro-Codes für solche Fälle bin ich immer besonders dankbar. Ich habe es leider nie geschafft, mich in diese Programmiersprache so einzuarbeiten, dass ich so etwas selbst ohne Hilfe herstellen kann.

if farbe=65535 then

65535 ist die DEC-Form von #00FFFF, richtig?

PS:
Mir fällt gerade auf, dass deine Beispieldatei fast 500-mal heruntergeladen wurde. Respekt (vor der KI)!

Oh my God. Stehen mir da Urheber-Tantiemen zu?

[miesepeter]

@Mau
Die Umrechner im Internet finden: umrechnung hex in dezimal

OT:
Urheber-Tantiemen: Das Geschäftsmodell der KI ist halt, grundsätzlich zu kopieren und auszuwerten und nichts dafür zu bezahlen. Heute sind wir schon bei mehr als 600 Downloads. Vermüllung des Internets, Verschleudern von elektrischer Energie.