Absatzumbrüche (¶) durch Zeilenumbrüche (↵) ersetzen

[Mau]

Liebe ExpertInnen,
ich muss Absatzumbrüche durch Zeilenumbrüche ersetzen. Wie mache ich das? \n im Ersetzen-Feld setzt ja wieder Absatzumbrüche.

Gruß,
Mau

[miesepeter]

Benutze AltSearch.oxt.

[Mau]

Hallo miesepeter,

AltSearch habe ich installiert. Das gibt aber, wenn ich es aufrufe, einen BASIC-Laufzeitfehler aus, vom Typ com.sun.star.container.NoSuchElementExceptionMessage.
Angezeigt wird dazu die Programmzeile 110:
oLibContainer.LoadLibrary(LibName).

Gruß,
Mau

[miesepeter]

@Mau: Verstehe ich schon, manchmal ist AltSearch.oxt unzuverlässig.
Ich habe jetzt an einem Text probiert, es ergaben sich keine Fehler.
AltSearch.oxt: Version 1.4.2 (neueste Version)
LO: Version 6.1.4.2
OS: LinuxMint 18.3-64 Mate

[Mau]

Lieber Miesepeter,

ich habe Version 6.1.1 (mit Windows 10 64bit).

Wie macht man den Austausch denn händisch, ohne AltSearch?

Gruß,
Mau

[DavidG]

Hallo Mau,

mittels Suchen und Ersetzen funktioniert dies nicht.
Auch unter Verwendung von RegEx geht dies nicht.
Notepad++ kann es, LO ist noch nicht soweit mit der RegEx-Implementierung.

Also, entweder Altsearch oder siehe Beispieldatei mit Makro:

Ersetze Absatzmarke durch Zeilenschaltung.odt

Suchen und Ersetzen mittels Makro

(12.96 KiB) 333-mal heruntergeladen

Durch eine kleine Änderung im Makro-Code, kann das Programm auch so eingesetzt werden, dass
es nicht im gesamten Dokument sucht und ersetzt, sondern nur innerhalb eines markierten Textbereichs.

Manuell wäre nur Absatz für Absatz möglich.

[Mau]

Lieber David,

danke!
Ja, ich bräuchte den Code für einen markierten Teilbereich.
Was müsste ich ergänzen?

Gruß,
Mau

[DavidG]

Hallo Mau,

Ja, ich bräuchte den Code für einen markierten Teilbereich.

Da war ich wohl etwas zu voreilig.
Im Code ist u.a. diese Zeile auskommentiert:

Code: Alles auswählen

'			' OPTIONAL markierter Bereich
			oSel=oDoc.getCurrentSelection

Das erstellte Object oSel stellt dabei die eigentliche Markierung dar und funktioniert.
Allerdings bietet im Gegensatz zum Objekt oDoc, das Objekt oSel keinen createSearchDescriptor() an.
Das bedeutet, dass man einen anderen Weg finden muss, um innerhalb der Selektion zu arbeiten.

Bin gerade auf der Suche nach einer Umgehung dieses Problems.

Melde mich wieder.

[musikai]

So geht's auch:

Code: Alles auswählen

Sub convert_para_to_linebreaks_selection
oDoc = ThisComponent
oVC = oDoc.CurrentController.getViewCursor
oText=oVC.Text
oEndCursor=oText.createTextCursorByRange(oVC.End)
oTextCursor=oText.createTextCursorByRange(oVC.Start)

do while oText.compareRegionEnds(oTextCursor,oEndCursor) > 0
oTextCursor.goright(1,true)
if instr(oTextCursor.string,chr(13))>0 then oTextCursor.string=chr(10)
oTextCursor.collapsetoend
loop
End Sub

Anhang mit Schaltfläche "Absatzumbruch->Zeilenumbruch"

[Mau]

Liebe alle,

ich stelle gerade fest, dass AltSearch auf meinen Internet-Rechner problemlos läuft. Windows- und LO-Versionen sind dieselben wie auf dem Arbeitsrechner, der zum Internet keine Verbindung hat.

Gruß,
Mau