[users] macros

[JM]

 
to whom can help, 


Macro in Excel transposing any 5 colums to 5 rows 
     ' Macro recorded 24-02-2006 by Jorge Maia
    '

    '
        ActiveCell.Range("A1:A5").Select
        Selection.Copy
        ActiveCell.Offset(-1, 1).Range("A1").Select
        Selection.PasteSpecial Paste:=xlAll, Operation:=xlNone, 
SkipBlanks:=False _
            , Transpose:=True
        ActiveCell.Offset(1, 0).Rows("1:5").EntireRow.Select
        Application.CutCopyMode = False
        Selection.Delete Shift:=xlUp
    End Sub

Trying to having some macro in OpenOffice but does not work
    sub cTr
    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 = "B7:B11"

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

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

    rem ----------------------------------------------------------------------
    dim args3(0) as new com.sun.star.beans.PropertyValue
    args3(0).Name = "ToPoint"
    args3(0).Value = "C6"

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

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

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


    end sub