Zeile kopieren-einfügen mit Verschieben

[Stephan]

Warum beachtest Du nic ht die Hinweise die ion jedem Unterforum stehen?

siehe:
viewtopic.php?f=2&t=53237

Warum machst Du es späteren Lesern unnötig schwer Inhalte zu finden indem Du Threads unnötig verlängerst?

Die vermisste Funktion "kopierte Zeilen einfügen" kann man kaum erklären, schon gar nicht jemandem, der schon eine Lösung hat, bevor er das Problem verstanden hat.

Komisch da bereits dieser eine Satz genügt zu verstehen was Du willst. Ich habe somit keine Ahnung was daran schwer zu erklären wäre.

und in OpenOffice ist es zum Schreien umständlich

für mich nicht nachvollziehbar, da man das Ganze einmalig aufzeichnen kann und einer Tastaturkombination zuweisen und immer wieder benutzen. Dauer 1 Minute.

Code: Alles auswählen

sub Zeilen_einfuegen_verschieben
rem ----------------------------------------------------------------------
rem define variables
dim document   as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:InsertRows", "", 0, Array())

rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:Paste", "", 0, Array())

end sub

Gruß
Stephan