Seite 1 von 1
Text in LibreOffice ohne Formatierung Kopieren/Einfügen?
Verfasst: So 9. Mär 2014, 02:35
von Nichtraucher
Hi,
jedes mal, wenn ich aus einer PDF-Datei/einer Internetseite Text in Libre Office/Abiword kopieren möchte, wird lästigerweise die Formatierung mit beibehalten. Insbesondere die unnötigen Zeilenumbrüche sind bei längeren Passagen nur mit viel Aufwand manuell zu entfernen. Gibt es dafür eine -wenigstens halbwegs- elegante Lösung?
Re: Text in LibreOffice ohne Formatierung Kopieren/Einfügen?
Verfasst: So 9. Mär 2014, 08:29
von pmoegenb
Füge den Text einfach unformatiert ein.
Zitate aus der Programmhilfe:
Einfügen von Daten aus Textdokumenten
Wenn Sie den Text über die Zwischenablage übertragen, können Sie ihn mit oder ohne Textattributen am Zielort einfügen. Verwenden Sie die Tastenkombinationen Strg+C zum Kopieren und Strg+V zum Einfügen.
Zum Auswählen des Formats, in dem der Inhalt der Zwischenablage eingefügt wird, klicken Sie etwas länger auf das Symbol Einfügen in der Standardleiste oder wählen Sie Bearbeiten - Inhalte einfügen. Wählen Sie dann das Format aus.
Re: Text in LibreOffice ohne Formatierung Kopieren/Einfügen?
Verfasst: So 9. Mär 2014, 13:05
von Nichtraucher
Soweit war ich auch schon und hilft leider nicht weiter, da die Zeilenumbrüche beibehalten werden. Bisher habe ich diese Schwierigkeit immer mit dieser Seite hier umgangen:
http://www.textfixer.com/tools/remove-line-breaks.php
[...]
/edit: Hat sich erledigt
Trotzdem danke für die Hilfe!
Re: Text in LibreOffice ohne Formatierung Kopieren/Einfügen?
Verfasst: Mo 10. Mär 2014, 19:51
von manese
Hallo Nichtraucher,
ich gehe bei deinem Problem so vor:
1. Ich füge den Text ohne Formatierung ein.
Den entsprechenden Befehl habe ich mir auf die Taste "Einfg" gelegt,
das ist ganz praktisch, weil man dann auch nicht versehentlich in den Überschreibmodus wechselt.
2. Ich lasse den eingefügten Text von überflüssigen Zeilenumbrüchen heilen.
Dafür benutze ich das unten angefügte Makro.
Das Makro selbst habe ich mir auf die Tastenkombination "STRG+Einfg" gelegt.
Du kannst es ja mal ausprobieren.
Alles Gute
matthias
Code: Alles auswählen
sub eMailLueckenEntfernen
' on error goto Fehler
Dim oDoc as object
oDoc = ThisComponent
''''''''''''''''''''''''''''''''''''''''''''''
'Ein Suchobjekt erstellen
Dim oSuche as object
oSuche = oDoc.createReplaceDescriptor()
oSuche.SearchRegularExpression = true
'''''''''''''''''''''''''''''''''''''''
'Leerzeilen entfernen
with oSuche
.setSearchString("^$")
.setReplaceString("")
end with
oDoc.replaceAll(oSuche)
'''''''''''''''''''''''''''''''''''
'Leerzeichen am Zeilenanfang entfernen
with oSuche
.setSearchString("^ ")
.setReplaceString("")
end with
oDoc.replaceAll(oSuche)
'''''''''''''''''''''''''''''''''''''''
'Leerzeilen entfernen
with oSuche
.setSearchString("^$")
.setReplaceString("")
end with
oDoc.replaceAll(oSuche)
end sub