Seite 1 von 1

Ersetzen eines Zeichens durch Absatzwechsel

Verfasst: Mo, 08.07.2019 08:09
von Toxitom
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

Re: Ersetzen eines Zeichens durch Absatzwechsel

Verfasst: Mo, 08.07.2019 09:53
von Stephan
Zu dem Suchdialog fällt mir auch nichts ein. Vielleicht ist ein Makro akzeptabel?

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
Gruß
Stephan

Re: Ersetzen eines Zeichens durch Absatzwechsel

Verfasst: Mo, 08.07.2019 10:13
von Toxitom
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