Re: Zeile kopieren-einfügen mit Verschieben
Verfasst: Mi, 08.08.2012 21:42
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?
Gruß
Stephan
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?
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.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.
für mich nicht nachvollziehbar, da man das Ganze einmalig aufzeichnen kann und einer Tastaturkombination zuweisen und immer wieder benutzen. Dauer 1 Minute.und in OpenOffice ist es zum Schreien umständlich
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 subGruß
Stephan