LibreOffice-Forum

Hallo,
ich habe eine 500 Seiten Arbeit (Dateiendung .odt ) und würde gerne eine bestimmte Zeichenfolge nachträglich mit einer Formatvorlage belegen. Diese Zeichenfolge kommt 661 Mal im Dokument vor, deswegen würde ich das gerne automatisiert tun.

Der Suchen/Ersetzen Dialog bietet leider nur an, Texte, die bereits eine Formatvorlage zugewiesen haben, durch eine andere zu ersetzen. In meinem Fall müsste ich jedoch nach reinem Text suchen können und dem dann eine Formatvorlage zuweisen können (und nicht bloß eine Formatierung).

Was ich also schon erfolglos versucht habe, ist:

-) den Suchen/Ersetzen Dialog zu nutzen, damit ist das jedoch nicht möglich.
(Ich kenne diesen Eintrag dazu, der beschreibt jedoch nur ein ähnliches Problem und funktioniert für meinen Fall nicht: http://www.libreoffice-forum.de/viewtopic.php?t=12839

-) Reguläre Ausdrücke für Formatvorlagen zu finden, damit ich das eventuell doch über den Suchen/Ersetzen Dialog erledigen kann -> keine gefunden.

-) Über Format/Autokorrektur bzw. Autokorrekturooptionen kann ich offenbar nur bestehende Optionen anhaken, aber selbst keine neuen Einträge mit Formatvorlagen definieren

Ich nutze LibreOffice Writer 4.4 oder 4.3.7.2 und mich beschleicht langsam der Verdacht, dass das nicht geht und das wäre bitter. Ist das richtig oder gibt es doch eine Möglichkeit das zu erreichen?

Verwende folgendes Makro

Code: Alles auswählen

Sub LO_5_15276
' 20150812
' Suchen nach einer Zeichenfolge und 
' Setzen einer Zeichenvorlage bei den Fundstellen

oDok = ThisComponent

' Erstellen einer Suche
oSuchBeschr = oDok.createSearchDescriptor()
With oSuchBeschr
 .SearchRegularExpression = FALSE
 .SearchCaseSensitive = FALSE
 .SearchString = "Donec"
End With

' Schleife über alle Fundstellen, setzen der Vorlage
oAlleStellen = oDok.findAll( oSuchBeschr )
Print oAlleStellen.getCount() 
For i = 0 to oAlleStellen.getCount() - 1
   oGefunden = oAlleStellen.getByIndex( i )
   oGefunden.CharStyleName = "_neuerStil"
Next

End Sub

Vor dem Anwenden "natürlich" eine Zeichenvorlage entsprechend anlegen und benennen (mein Vorlagen beginnen mit Unterstrich, damit sie in den Auflistungen "oben" erscheinen).

Und den Suchbegriff im Makro anpassen.

Also:
"Donec" im Makro durch Deinen Begriff ersetzen.
und "_neuerStil" durch den Namen der anzuwendenden Zeichenvorlage.

Hilft Dir das weiter?

carabina hat geschrieben:... würde gerne eine bestimmte Zeichenfolge nachträglich mit einer Formatvorlage belegen.

Die Funktion Suchen&Ersetzen ist dafür schon das richtige Werkzeug. Im Prinzip willst du die Zeichenfolgen markieren und diesen Markierungen dann eine Zeichenvorlage zuweisen.

Markiere eine der Zeichenfolgen und öffne dann "Suchen&Ersetzen". Die Zeichenfolge ist dann bereits im Suchfeld eingetragen. Jetzt klickst du auf "Alles suchen". Die Zeichenfolgen werden jetzt alle markiert. Nun einfach den Suchen-Dialog schließen, F11 öffnen und mit einem Doppelklick die gewünschte Zeichenvorlage den markierten Stellen zuweisen.

Ich bin begeistert!
@Rocko: so schnell und einfach, toll. Habe es ausprobiert und es funktioniert!
@komma4: Ah! An Makros habe ich noch nicht gedacht. Das werde ich auch gleich ausprobieren, damit ich das mal gemacht habe!!

Vielen Dank für die superschnellen Antworten, das hat mir das Wochenende gerettet

LibreOffice-Forum

Spezifische Zeichenfolge mit Formatvorlage automatisch (er)setzen

Spezifische Zeichenfolge mit Formatvorlage automatisch (er)setzen

Re: Spezifische Zeichenfolge mit Formatvorlage automatisch (er)setzen

Re: Spezifische Zeichenfolge mit Formatvorlage automatisch (er)setzen

Re: Spezifische Zeichenfolge mit Formatvorlage automatisch (er)setzen