Inhalte einfügen unformatiert - Makro?

[martinheinz]

Hallo,

ich habe des öfteren die Anforderung, über die Zwischenablage Texte aus anderen Anwendungen (Browser...) oder zwischen Calc und Writer zu kopieren. Dazu möchte ich gerne unformatierten Rohtext einfügen. Ich drücke also Strg-Shift-V und bekomme jedesmal die Frage, welches Format erzeugt werden soll. Jedes mal muß ich "unformatiert" klicken.
Das möchte ich gerne abkürzen: Wenn ich z.B. Strg-Alt-V drücke soll unformatierter Text eingefügt werden.

# Makroaufzeichnung:

Code: Alles auswählen

sub InhaltEinfUnform
rem define variables
dim document   as object
dim dispatcher as object
rem get access to the document
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "Format"
args1(0).Value = 1
dispatcher.executeDispatch(document, ".uno:PasteSpecial", "", 0, args1())
end sub

funktioniert in die Richtung, in der es aufgezeichnet wurde erstmal, aber sobald der Inhalt der Zwischenablage sich ändert (Umbrüche, Tabellenartiges...) geht es nicht mehr.

Kann ich mir da helfen?

Danke
Martin

[martinheinz]

Hallo Wolfgang,

vielen Dank für den Link zu PureText. Das Ding geht schon gut, leider macht Calc nicht mit. Wenn ich mehrabsätzige Zwischenablagen habe, kommt immer der Tabellenkonvertierungs-Dialog für den Textimport.

Martin

[komma4]

Andrew arbeitet in seinem Dokument mit dem clipboard Objekt und hat mit seinem Sub ConvertClipToText wohl genau das, martinheinz was braucht.

[martinheinz]

Hallo Winfried,

vielen Dank für den Verweis auf die interessanten Makros von Andrew Pitonyak.
Das klappt auch sehr gut, der Text mir wunderbar im der MSGBOX angezeigt.
Bloß bin ich leider nicht in der Lage den Code so zu manipulieren, daß stattdessen eingefügt wird...

Martin