OpenOffice.info

Code: Alles auswählen

rem ----------------------------------------------------------------------
dim args501(0) as new com.sun.star.beans.PropertyValue
args501(0).Name = "Protect"
args501(0).Value = false

dispatcher.executeDispatch(document, ".uno:Protect", "", 0, args501())

rem ----------------------------------------------------------------------
dim args506(0) as new com.sun.star.beans.PropertyValue
args506(0).Name = "ToPoint"
args506(0).Value = "$F$13"

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

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

rem ----------------------------------------------------------------------
dim args507(0) as new com.sun.star.beans.PropertyValue
args507(0).Name = "Nr"
args507(0).Value = 4

dispatcher.executeDispatch(document, ".uno:JumpToTable", "", 0, args507())


' Springt in die erste Zelle ( Spalte A)

rem ----------------------------------------------------------------------
dim args1(1) as new com.sun.star.beans.PropertyValue
args1(0).Name = "By"
args1(0).Value = 1
args1(1).Name = "Sel"
args1(1).Value = false

dispatcher.executeDispatch(document, ".uno:GoLeftToStartOfData", "", 0, args1())


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


rem ----------------------------------------------------------------------
dim args508(1) as new com.sun.star.beans.PropertyValue 
args508(0).Name = "By" 
args508(0).Value = 3 
args508(1).Name = "Sel" 
args508(1).Value = false

dispatcher.executeDispatch(document, ".uno:GoRight", "", 0, args508()) 

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

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

rem ----------------------------------------------------------------------
dim args505(0) as new com.sun.star.beans.PropertyValue
args505(0).Name = "Nr"
args505(0).Value = 3

dispatcher.executeDispatch(document, ".uno:JumpToTable", "", 0, args505())


rem ----------------------------------------------------------------------------

dim args500(0) as new com.sun.star.beans.PropertyValue
args500(0).Name = "ToPoint"
args500(0).Value = "$F$14"

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

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

rem ----------------------------------------------------------------------
dim args502(0) as new com.sun.star.beans.PropertyValue
args502(0).Name = "Nr"
args502(0).Value = 4

dispatcher.executeDispatch(document, ".uno:JumpToTable", "", 0, args502())

rem ----------------------------------------------------------------------
dim args4(0) as new com.sun.star.beans.PropertyValue
args4(0).Name = "Protect"
args4(0).Value = false

dispatcher.executeDispatch(document, ".uno:Protect", "", 0, args4())

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

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

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

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

rem ----------------------------------------------------------------------
dim args552(0) as new com.sun.star.beans.PropertyValue
args552(0).Name = "NumberFormatValue"
args552(0).Value = 243

dispatcher.executeDispatch(document, ".uno:NumberFormatValue", "", 0, args552())

Code: Alles auswählen

rem ---------------------------------------------------------------------------- 

dim args500(0) as new com.sun.star.beans.PropertyValue 
args500(0).Name = "ToPoint" 
args500(0).Value = "$F$14" 

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

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

Code: Alles auswählen

rem ---------------------------------------------------------------------------- 

dim args500(0) as new com.sun.star.beans.PropertyValue 
args500(0).Name = "ToPoint" 
args500(0).Value = "$F$14" 

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args500()) 
rem ---------------------------------------------------------------------------- 

dim args501(0) as new com.sun.star.beans.PropertyValue 
args501(0).Name = "ToPoint" 
args501(0).Value = "$F$14" 

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

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