Makro, aus OOo1.1.4 nach Version 2.0

Das Tabellenkalkulationsprogramm

Moderator: Moderatoren

vanglio
Beiträge: 8
Registriert: Mo, 02.08.2004 11:40
Wohnort: Berlin

Makro, aus OOo1.1.4 nach Version 2.0

Beitrag von vanglio »

Vorgaben: OOo1.1.4-Tabelle mit dem Makro (siehe unten) mit OOo2.0 öffnen.
Mein Makro, aus OOo1.1.4 funktioniert nicht in OOo 2.0. Auch neuschreiben in Version 2.0 geht nicht.

Ohne zu markieren, nur durch anklicken einer beliebigen mit Zahlen ausgefüllten Zelle, kann ich den Inhalt durch das Makro in eine vorgegebene Zelle einfügen. Diese Zelle ist zum Beispiel die Eigabezelle einers Rechners mit verschiedenen vorgegebenen Formeln. Das geht auch mit entsprechend abgeändertem Makro nach einem anderen Tabellen-Blatt der gleichen Tabelle.
Das läuft auch mit ganzen Zeilen, wenn man den Zeilenkopf anklickt.

Meine Frage: Habe ich eventuell eine Fehlerhafte Installation?
Oder geht das mit der Version 2.0.0 grundsätzlich nicht?
Hat jemand eine Idee?

sub nachRechner
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:Copy", "", 0, Array())

rem ----------------------------------------------------------------------
dim args2(0) as new com.sun.star.beans.PropertyValue
args2(0).Name = "ToPoint"
args2(0).Value = "$K$3"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args2())

rem ----------------------------------------------------------------------
dim args3(5) as new com.sun.star.beans.PropertyValue
args3(0).Name = "Flags"
args3(0).Value = "SV"
args3(1).Name = "FormulaCommand"
args3(1).Value = 0
args3(2).Name = "SkipEmptyCells"
args3(2).Value = false
args3(3).Name = "Transpose"
args3(3).Value = false
args3(4).Name = "AsLink"
args3(4).Value = false
args3(5).Name = "MoveMode"
args3(5).Value = 4

dispatcher.executeDispatch(document, ".uno:InsertContents", "", 0, args3())

end sub


[/code]