Text in LibreOffice ohne Formatierung Kopieren/Einfügen?

[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?

[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.

[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!

[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