Inhalte einfügen unformatiert - Makro?
Verfasst: Sa, 01.03.2008 10:33
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:
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
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
Kann ich mir da helfen?
Danke
Martin