Matheus Costa De Oliveira

Boa tarde ! Bom ? Queria traduzir essa linguagem do Office para o Excel : 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 = "$J$3458" dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args1()) Rem ---------------------------------------------------------------------- Dim args2(0) As New com.sun.star.beans.PropertyValue args2(0).Name = "By" args2(0).Value = 1 dispatcher.executeDispatch(document, ".uno:GoRightSel", "", 0, args2()) Rem ---------------------------------------------------------------------- Dim args3(0) As New com.sun.star.beans.PropertyValue args3(0).Name = "By" args3(0).Value = 1 dispatcher.executeDispatch(document, ".uno:GoRightSel", "", 0, args3()) Rem ---------------------------------------------------------------------- Dim args4(0) As New com.sun.star.beans.PropertyValue args4(0).Name = "By" args4(0).Value = 1 dispatcher.executeDispatch(document, ".uno:GoRightSel", "", 0, args4()) Rem ---------------------------------------------------------------------- Dim args5(0) As New com.sun.star.beans.PropertyValue args5(0).Name = "By" args5(0).Value = 1 dispatcher.executeDispatch(document, ".uno:GoRightSel", "", 0, args5()) Rem ---------------------------------------------------------------------- Dim args6(0) As New com.sun.star.beans.PropertyValue args6(0).Name = "By" args6(0).Value = 1 dispatcher.executeDispatch(document, ".uno:GoRightSel", "", 0, args6()) Rem ---------------------------------------------------------------------- Dim args7(0) As New com.sun.star.beans.PropertyValue args7(0).Name = "By" args7(0).Value = 1 dispatcher.executeDispatch(document, ".uno:GoRightSel", "", 0, args7()) Rem ---------------------------------------------------------------------- Dim args8(0) As New com.sun.star.beans.PropertyValue args8(0).Name = "By" args8(0).Value = 1 dispatcher.executeDispatch(document, ".uno:GoRightSel", "", 0, args8()) Rem ---------------------------------------------------------------------- Dim args9(0) As New com.sun.star.beans.PropertyValue args9(0).Name = "By" args9(0).Value = 1 dispatcher.executeDispatch(document, ".uno:GoRightSel", "", 0, args9()) Rem ---------------------------------------------------------------------- Dim args10(0) As New com.sun.star.beans.PropertyValue args10(0).Name = "By" args10(0).Value = 1 dispatcher.executeDispatch(document, ".uno:GoRightSel", "", 0, args10()) Rem ---------------------------------------------------------------------- Dim args11(0) As New com.sun.star.beans.PropertyValue args11(0).Name = "By" args11(0).Value = 1 dispatcher.executeDispatch(document, ".uno:GoRightSel", "", 0, args11()) Rem ---------------------------------------------------------------------- Dim args12(0) As New com.sun.star.beans.PropertyValue args12(0).Name = "By" args12(0).Value = 1 dispatcher.executeDispatch(document, ".uno:GoRightSel", "", 0, args12()) Rem ---------------------------------------------------------------------- Dim args13(0) As New com.sun.star.beans.PropertyValue args13(0).Name = "By" args13(0).Value = 1 dispatcher.executeDispatch(document, ".uno:GoRightSel", "", 0, args13()) Rem ---------------------------------------------------------------------- Dim args14(0) As New com.sun.star.beans.PropertyValue args14(0).Name = "By" args14(0).Value = 1 dispatcher.executeDispatch(document, ".uno:GoRightSel", "", 0, args14()) Rem ---------------------------------------------------------------------- Dim args15(0) As New com.sun.star.beans.PropertyValue args15(0).Name = "By" args15(0).Value = 1 dispatcher.executeDispatch(document, ".uno:GoRightSel", "", 0, args15()) Rem ---------------------------------------------------------------------- dispatcher.executeDispatch(document, ".uno:Copy", "", 0, Array()) Rem ---------------------------------------------------------------------- Dim args17(1) As New com.sun.star.beans.PropertyValue args17(0).Name = "By" args17(0).Value = 1 args17(1).Name = "Sel" args17(1).Value = False dispatcher.executeDispatch(document, ".uno:GoUpToStartOfData", "", 0, args17()) Rem ---------------------------------------------------------------------- Dim args18(1) As New com.sun.star.beans.PropertyValue args18(0).Name = "By" args18(0).Value = 1 args18(1).Name = "Sel" args18(1).Value = False dispatcher.executeDispatch(document, ".uno:GoUpToStartOfData", "", 0, args18()) Rem ---------------------------------------------------------------------- Dim args19(1) As New com.sun.star.beans.PropertyValue args19(0).Name = "By" args19(0).Value = 1 args19(1).Name = "Sel" args19(1).Value = False dispatcher.executeDispatch(document, ".uno:GoUpToStartOfData", "", 0, args19()) Rem ---------------------------------------------------------------------- Dim args20(1) As New com.sun.star.beans.PropertyValue args20(0).Name = "By" args20(0).Value = 1 args20(1).Name = "Sel" args20(1).Value = False dispatcher.executeDispatch(document, ".uno:GoUpToStartOfData", "", 0, args20()) Rem ---------------------------------------------------------------------- Dim args21(1) As New com.sun.star.beans.PropertyValue args21(0).Name = "By" args21(0).Value = 1 args21(1).Name = "Sel" args21(1).Value = False dispatcher.executeDispatch(document, ".uno:GoUpToStartOfData", "", 0, args21()) Rem ---------------------------------------------------------------------- Dim args22(1) As New com.sun.star.beans.PropertyValue args22(0).Name = "By" args22(0).Value = 1 args22(1).Name = "Sel" args22(1).Value = False dispatcher.executeDispatch(document, ".uno:GoUpToStartOfData", "", 0, args22()) Rem ---------------------------------------------------------------------- Dim args23(1) As New com.sun.star.beans.PropertyValue args23(0).Name = "By" args23(0).Value = 1 args23(1).Name = "Sel" args23(1).Value = False dispatcher.executeDispatch(document, ".uno:GoUpToStartOfData", "", 0, args23()) Rem ---------------------------------------------------------------------- Dim args24(1) As New com.sun.star.beans.PropertyValue args24(0).Name = "By" args24(0).Value = 1 args24(1).Name = "Sel" args24(1).Value = False dispatcher.executeDispatch(document, ".uno:GoUpToStartOfData", "", 0, args24()) Rem ---------------------------------------------------------------------- Dim args25(1) As New com.sun.star.beans.PropertyValue args25(0).Name = "By" args25(0).Value = 1 args25(1).Name = "Sel" args25(1).Value = False dispatcher.executeDispatch(document, ".uno:GoUpToStartOfData", "", 0, args25()) Rem ---------------------------------------------------------------------- Dim args26(1) As New com.sun.star.beans.PropertyValue args26(0).Name = "By" args26(0).Value = 1 args26(1).Name = "Sel" args26(1).Value = False dispatcher.executeDispatch(document, ".uno:GoUpToStartOfData", "", 0, args26()) Rem ---------------------------------------------------------------------- Dim args27(1) As New com.sun.star.beans.PropertyValue args27(0).Name = "By" args27(0).Value = 1 args27(1).Name = "Sel" args27(1).Value = False dispatcher.executeDispatch(document, ".uno:GoUpToStartOfData", "", 0, args27()) Rem ---------------------------------------------------------------------- Dim args28(1) As New com.sun.star.beans.PropertyValue args28(0).Name = "By" args28(0).Value = 1 args28(1).Name = "Sel" args28(1).Value = False dispatcher.executeDispatch(document, ".uno:GoUpToStartOfData", "", 0, args28()) Rem ---------------------------------------------------------------------- Dim args29(1) As New com.sun.star.beans.PropertyValue args29(0).Name = "By" args29(0).Value = 1 args29(1).Name = "Sel" args29(1).Value = False dispatcher.executeDispatch(document, ".uno:GoUpToStartOfData", "", 0, args29()) Rem ---------------------------------------------------------------------- Dim args30(1) As New com.sun.star.beans.PropertyValue args30(0).Name = "By" args30(0).Value = 1 args30(1).Name = "Sel" args30(1).Value = False dispatcher.executeDispatch(document, ".uno:GoUpToStartOfData", "", 0, args30()) Rem ---------------------------------------------------------------------- Dim args31(1) As New com.sun.star.beans.PropertyValue args31(0).Name = "By" args31(0).Value = 1 args31(1).Name = "Sel" args31(1).Value = False dispatcher.executeDispatch(document, ".uno:GoUpToStartOfData", "", 0, args31()) Rem ---------------------------------------------------------------------- Dim args32(1) As New com.sun.star.beans.PropertyValue args32(0).Name = "By" args32(0).Value = 1 args32(1).Name = "Sel" args32(1).Value = False dispatcher.executeDispatch(document, ".uno:GoUpToStartOfData", "", 0, args32()) Rem ---------------------------------------------------------------------- Dim args33(1) As New com.sun.star.beans.PropertyValue args33(0).Name = "By" args33(0).Value = 1 args33(1).Name = "Sel" args33(1).Value = False dispatcher.executeDispatch(document, ".uno:GoUpToStartOfData", "", 0, args33()) Rem ---------------------------------------------------------------------- Dim args34(1) As New com.sun.star.beans.PropertyValue args34(0).Name = "By" args34(0).Value = 1 args34(1).Name = "Sel" args34(1).Value = False dispatcher.executeDispatch(document, ".uno:GoUpToStartOfData", "", 0, args34()) Rem ---------------------------------------------------------------------- Dim args35(1) As New com.sun.star.beans.PropertyValue args35(0).Name = "By" args35(0).Value = 1 args35(1).Name = "Sel" args35(1).Value = False dispatcher.executeDispatch(document, ".uno:GoUpToStartOfData", "", 0, args35()) Rem ---------------------------------------------------------------------- Dim args36(5) As New com.sun.star.beans.PropertyValue args36(0).Name = "Flags" args36(0).Value = "SVD" args36(1).Name = "FormulaCommand" args36(1).Value = 0 args36(2).Name = "SkipEmptyCells" args36(2).Value = False args36(3).Name = "Transpose" args36(3).Value = False args36(4).Name = "AsLink" args36(4).Value = False args36(5).Name = "MoveMode" args36(5).Value = 4 dispatcher.executeDispatch(document, ".uno:InsertContents", "", 0, args36()) Rem ---------------------------------------------------------------------- Dim args37(1) As New com.sun.star.beans.PropertyValue args37(0).Name = "By" args37(0).Value = 1 args37(1).Name = "Sel" args37(1).Value = False dispatcher.executeDispatch(document, ".uno:GoRight", "", 0, args37()) Rem ---------------------------------------------------------------------- Dim args38(1) As New com.sun.star.beans.PropertyValue args38(0).Name = "By" args38(0).Value = 1 args38(1).Name = "Sel" args38(1).Value = False dispatcher.executeDispatch(document, ".uno:GoRight", "", 0, args38()) Rem ---------------------------------------------------------------------- Dim args39(1) As New com.sun.star.beans.PropertyValue args39(0).Name = "By" args39(0).Value = 1 args39(1).Name = "Sel" args39(1).Value = False dispatcher.executeDispatch(document, ".uno:GoRight", "", 0, args39()) Rem ---------------------------------------------------------------------- Dim args40(1) As New com.sun.star.beans.PropertyValue args40(0).Name = "By" args40(0).Value = 1 args40(1).Name = "Sel" args40(1).Value = False dispatcher.executeDispatch(document, ".uno:GoRight", "", 0, args40()) Rem ---------------------------------------------------------------------- Dim args41(1) As New com.sun.star.beans.PropertyValue args41(0).Name = "By" args41(0).Value = 1 args41(1).Name = "Sel" args41(1).Value = False dispatcher.executeDispatch(document, ".uno:GoRight", "", 0, args41()) Rem ---------------------------------------------------------------------- Dim args42(0) As New com.sun.star.beans.PropertyValue args42(0).Name = "StringName" args42(0).Value = "1" dispatcher.executeDispatch(document, ".uno:EnterString", "", 0, args42()) Rem ---------------------------------------------------------------------- Dim args43(1) As New com.sun.star.beans.PropertyValue args43(0).Name = "By" args43(0).Value = 1 args43(1).Name = "Sel" args43(1).Value = False dispatcher.executeDispatch(document, ".uno:GoRight", "", 0, args43()) Rem ---------------------------------------------------------------------- Dim args44(1) As New com.sun.star.beans.PropertyValue args44(0).Name = "By" args44(0).Value = 1 args44(1).Name = "Sel" args44(1).Value = False dispatcher.executeDispatch(document, ".uno:GoLeft", "", 0, args44()) Rem ---------------------------------------------------------------------- dispatcher.executeDispatch(document, ".uno:clearContents(com.sun.star.sheet.CellFlags.VALUE + com.sun.star.sheet.CellFlags.STRING + com.sun.star.sheet.CellFlags.DATETIME)", "", 0, Array()) End Sub