Attachment 173304 Details for Bug 143145 – Macro used for copying and pasting results for league table calculation

Macro used for copying and pasting results for league table calculation

crashing macro.txt (text/plain), 5.03 KB, created by Mal Smith on 2021-07-01 09:37:26 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: Mal Smith

Created: 2021-07-01 09:37:26 UTC

Size: 5.03 KB

patch

obsolete

>rem basic
>
>
>sub weds_aussie_prs_all
>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 = "$B$4:$D$16"
>
>dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args1())
>
>rem ----------------------------------------------------------------------
>dispatcher.executeDispatch(document, ".uno:Cut", "", 0, Array())
>
>rem ----------------------------------------------------------------------
>dim args3(0) as new com.sun.star.beans.PropertyValue
>args3(0).Name = "Nr"
>args3(0).Value = 7
>
>dispatcher.executeDispatch(document, ".uno:JumpToTable", "", 0, args3())
>
>rem ----------------------------------------------------------------------
>dim args4(0) as new com.sun.star.beans.PropertyValue
>args4(0).Name = "ToPoint"
>args4(0).Value = "$B$36:$D$48"
>
>dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args4())
>
>rem ----------------------------------------------------------------------
>dispatcher.executeDispatch(document, ".uno:Paste", "", 0, Array())
>
>rem ----------------------------------------------------------------------
>dim args6(0) as new com.sun.star.beans.PropertyValue
>args6(0).Name = "ToPoint"
>args6(0).Value = "$C$19:$J$31"
>
>dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args6())
>
>rem ----------------------------------------------------------------------
>dispatcher.executeDispatch(document, ".uno:Copy", "", 0, Array())
>
>rem ----------------------------------------------------------------------
>dim args8(0) as new com.sun.star.beans.PropertyValue
>args8(0).Name = "ToPoint"
>args8(0).Value = "$C$3"
>
>dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args8())
>
>rem ----------------------------------------------------------------------
>dim args9(5) as new com.sun.star.beans.PropertyValue
>args9(0).Name = "Flags"
>args9(0).Value = "V"
>args9(1).Name = "FormulaCommand"
>args9(1).Value = 0
>args9(2).Name = "SkipEmptyCells"
>args9(2).Value = false
>args9(3).Name = "Transpose"
>args9(3).Value = false
>args9(4).Name = "AsLink"
>args9(4).Value = false
>args9(5).Name = "MoveMode"
>args9(5).Value = 4
>
>dispatcher.executeDispatch(document, ".uno:InsertContents", "", 0, args9())
>
>rem ----------------------------------------------------------------------
>dim args10(0) as new com.sun.star.beans.PropertyValue
>args10(0).Name = "ToPoint"
>args10(0).Value = "$C$36:$D$48"
>
>dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args10())
>
>rem ----------------------------------------------------------------------
>rem ----------------------------------------------------------------------
>dim args11(0) as new com.sun.star.beans.PropertyValue
>args11(0).Name = "Flags"
>args11(0).Value = "V"
>
>dispatcher.executeDispatch(document, ".uno:Delete", "", 0, args11())
>
>
>rem ----------------------------------------------------------------------
>dim args12(0) as new com.sun.star.beans.PropertyValue
>args12(0).Name = "ToPoint"
>args12(0).Value = "$Q$1:$Z$15"
>
>dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args12())
>
>rem ----------------------------------------------------------------------
>dispatcher.executeDispatch(document, ".uno:Copy", "", 0, Array())
>
>rem ----------------------------------------------------------------------
>dim args14(0) as new com.sun.star.beans.PropertyValue
>args14(0).Name = "Nr"
>args14(0).Value = 9
>
>dispatcher.executeDispatch(document, ".uno:JumpToTable", "", 0, args14())
>
>rem ----------------------------------------------------------------------
>dim args15(0) as new com.sun.star.beans.PropertyValue
>args15(0).Name = "ToPoint"
>args15(0).Value = "$A$64"
>
>dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args15())
>
>rem ----------------------------------------------------------------------
>dim args16(5) as new com.sun.star.beans.PropertyValue
>args16(0).Name = "Flags"
>args16(0).Value = "SVT"
>args16(1).Name = "FormulaCommand"
>args16(1).Value = 0
>args16(2).Name = "SkipEmptyCells"
>args16(2).Value = false
>args16(3).Name = "Transpose"
>args16(3).Value = false
>args16(4).Name = "AsLink"
>args16(4).Value = false
>args16(5).Name = "MoveMode"
>args16(5).Value = 4
>
>dispatcher.executeDispatch(document, ".uno:InsertContents", "", 0, args16())
>
>rem ----------------------------------------------------------------------
>dispatcher.executeDispatch(document, ".uno:Save", "", 0, Array())
>
>rem ----------------------------------------------------------------------
>dim args18(0) as new com.sun.star.beans.PropertyValue
>args18(0).Name = "Nr"
>args18(0).Value = 1
>
>dispatcher.executeDispatch(document, ".uno:JumpToTable", "", 0, args18())
>
>
>end sub

Actions: View

Attachments on bug 143145: 173304