ich bin neu hier. Sollte meine Frage schon beantwortet sein, bitte einfach Link mailen.
Mein Problem: Wenn ich aus PDF-Dateien Text in LibreOffice kopiere, wird jede Zeile mit einer Absatzmarke versehen. Die möchte ich mithilfe eines Makros entfernen. 'Früher' hatte ich ein aufgezeichnetes UNO-Makro verwendet, das aber seit dem letzten Update nicht mehr funktioniert.
Folgendes Makro entfernt (genauer, ersetzt durch Leerzeichen), wie gewünscht, alle Absatzmarken im gesamten Text:
Code: Alles auswählen
Sub Neu_Absatz_weg
Dim Doc As Object
Dim Replace As Object
Doc = StarDesktop.CurrentComponent
Replace = Doc.createReplaceDescriptor
Replace.SearchRegularExpression = TRUE
Replace.SearchString = "$"
Replace.ReplaceString = " "
Doc.replaceAll (Replace)
End Sub