Hey,
Ein längerer Text in einer Zelle solle an bestimmten Stellen einen Absatzwechsel (Absatzendezeichen) erhalten.
Bei der manuellen Eingabe geht das problemlos durch <Stgr> + <Enter>.
Nun soll ein bereits vorhandener Text mit Suchen+Ersetzen diesen Absatzwechsel erhalten - an einem definierten Zeichen, z.B. '%'.
Aus
eins%zwei soll werden
eins
zwei
In Writer geht das problemlos mit \n im Ersetzenfeld, bei Calc allerdings nicht.
Hat jemand eine Idee? leider gehen bei mir auch so Sachen wie \x000D nicht,
Bin für jeden Tipp dankbar
VG
Tom
Ersetzen eines Zeichens durch Absatzwechsel
Moderator: Moderatoren
Ersetzen eines Zeichens durch Absatzwechsel
Unterstützer LibreOffice, zertifizierter Trainer und Berater
Bücher: LibreOffice 6- Einstieg und Umstieg
Makros Grundlagen - LibreOffice / OpenOffice Basic
Bücher: LibreOffice 6- Einstieg und Umstieg
Makros Grundlagen - LibreOffice / OpenOffice Basic
Re: Ersetzen eines Zeichens durch Absatzwechsel
Zu dem Suchdialog fällt mir auch nichts ein. Vielleicht ist ein Makro akzeptabel?
Gruß
Stephan
Code: Alles auswählen
Sub Main
blatt = ThisComponent.Sheets(0)
sd = blatt.createSearchDescriptor()
sd.setSearchString("%")
sd.SearchWords = False
akt = blatt.findFirst(sd)
Do While Not IsNull(akt)
x1 = Split(akt.String,"%")
akt.String = JOIN(x1, CHR(10))
akt = blatt.findNext(akt, sd)
Loop
End Sub
Stephan
Re: Ersetzen eines Zeichens durch Absatzwechsel
Hallo Stephan,
danke für die Antwort. Und natürlich, mit Makro geht´s immer;))
Hätte ja nur sein können, dass jemand ne Idee für die Suchen&Ersetzen Maske hat.
VG
Tom
danke für die Antwort. Und natürlich, mit Makro geht´s immer;))
Hätte ja nur sein können, dass jemand ne Idee für die Suchen&Ersetzen Maske hat.
VG
Tom
Unterstützer LibreOffice, zertifizierter Trainer und Berater
Bücher: LibreOffice 6- Einstieg und Umstieg
Makros Grundlagen - LibreOffice / OpenOffice Basic
Bücher: LibreOffice 6- Einstieg und Umstieg
Makros Grundlagen - LibreOffice / OpenOffice Basic