AuFgabe: Die Funktion sortieren (normal erreichbar über Daten> sortieren) soll Bestanteil eines größeren M;akro sein und automatisch ablaufen,
Ich habe folgendes Programm gefunden ( über "Makro aufzeichnen":
Code: Alles auswählen
sub Main
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 ----------------------------------------------------------------------
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "ToPoint"
args1(0).Value = "$C$100:$D$108"
dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args1())
rem ----------------------------------------------------------------------
dim args2(8) as new com.sun.star.beans.PropertyValue
args2(0).Name = "ByRows"
args2(0).Value = true
args2(1).Name = "HasHeader"
args2(1).Value = false
args2(2).Name = "CaseSensitive"
args2(2).Value = false
args2(3).Name = "IncludeAttribs"
args2(3).Value = true
args2(4).Name = "UserDefIndex"
args2(4).Value = 0
args2(5).Name = "Col1"
args2(5).Value =3
args2(6).Name = "Ascending1"
args2(6).Value = true
args2(7).Name = "Col2"
args2(7).Value =4
args2(8).Name = "Ascending2"
args2(8).Value =true
dispatcher.executeDispatch(document, ".uno:DataSort", "", 0, args2())
end sub
Code: Alles auswählen
args2(1) "Hasfeader" hat sicher nix mit heute zu tun,
args2(5) und (7) "Col1(2)" hat den Wert 3 bzw.5. Welche Wertliste gibt es und was bewirken die Werte?
Col1 bzw, Col2 ist die Sortrichtung je Spalte; sicher können auch mehrere Spalten mit Args2(...) aufgeführt werden.
Wenn jemand Lust hat, mich aufzuklären; wäre schön.
Max