Hallo Konrad,
Am 04.01.2014 14:56, schrieb 3052192:
Hallo Isch,
beschreibe doch mal Schritt für Schritt, wie Du das Makro erstellst, bevor
Du einen Bug vermutest.
Gru0 Konrad
habe halt keine andere Vermutung.
Egal ob ich ihn einfach als Makro erstelle oder ihn aufzeichnen lasse.
Beides mal kommt das gleiche raus. Das klarer ist was rauskommt hier
auch mal das Makro im Klartext.
Rem ------------------------------------------- Sortieren_Datum
---------------------------------------------
Sub Sortieren_Datum
rem --------------------------------------------------------------
define variables für Dokumentzugang
dim document as object
dim dispatcher as object
rem --------------------------------------------------------------
Dokumentzugang
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
rem --------------------------------------------------------------
Variablen definition
rem ----------------------------------------------Index +1 wie Argument
und dreistellig
dim args001(0) as new com.sun.star.beans.PropertyValue
dim args002(1) as new com.sun.star.beans.PropertyValue
dim args005(4) as new com.sun.star.beans.PropertyValue
dim args008(7) as new com.sun.star.beans.PropertyValue
dim args011(10) as new com.sun.star.beans.PropertyValue
rem ---------------------------------- Unterprocedur aufruf
----------------------------
Tabelle_markieren_1
den Sortierteil habe ich hier weggelassen, denn um den geht es ja nicht
und er funktioniert ohne Probleme.
rem ----------------------------------------------------------------------
args008(0).Name = "BorderOuter.LeftBorder"
args008(0).Value = Array(0,0,88,0)
args008(1).Name = "BorderOuter.LeftDistance"
args008(1).Value = 0
args008(2).Name = "BorderOuter.RightBorder"
args008(2).Value = Array(0,0,88,0)
args008(3).Name = "BorderOuter.RightDistance"
args008(3).Value = 0
args008(4).Name = "BorderOuter.TopBorder"
args008(4).Value = Array(0,0,88,0)
args008(5).Name = "BorderOuter.TopDistance"
args008(5).Value = 0
args008(6).Name = "BorderOuter.BottomBorder"
args008(6).Value = Array(0,0,88,0)
args008(7).Name = "BorderOuter.BottomDistance"
args008(7).Value = 0
dispatcher.executeDispatch(document, ".uno:BorderOuter", "", 0,
args008())
rem ----------------------------------------------------------------------
args005(0).Name = "BorderInner.Horizontal"
args005(0).Value = Array(0,0,35,0)
args005(1).Name = "BorderInner.Vertical"
args005(1).Value = Array(0,0,35,0)
args005(2).Name = "BorderInner.Flags"
args005(2).Value = 3
args005(3).Name = "BorderInner.ValidFlags"
args005(3).Value = 127
args005(4).Name = "BorderInner.DefaultDistance"
args005(4).Value = 0
dispatcher.executeDispatch(document, ".uno:BorderInner", "", 0,
args005())
hiernach wird auch noch einiges gemacht das ohne Probleme funktioniert.
end sub
Den ganzen Makrotext kann ich natürlich weiter geben wenn es interessiert.
Gruß
Christian
---------------------------------------------------------------------
To unsubscribe, e-mail: users-de-unsubscr...@openoffice.apache.org
For additional commands, e-mail: users-de-h...@openoffice.apache.org
