Ik krijg een macro in open office niet aan de praat

Status
Niet open voor verdere reacties.

lammertc

Gebruiker
Lid geworden
30 nov 2002
Berichten
141
Hallo
Ik probeer een opgenomen macro te maken die de celopmaak van de vorige kolom kopieert en de formules kopieert in waardes

Ik krijg deze code als ik de opname aanzet en die geen reactie geeft:



REM ***** BASIC *****

Sub Main

End Sub




sub McrFormuleVerwijderen
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 ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:Copy", "", 0, Array())

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

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

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

rem ----------------------------------------------------------------------
dim args4(5) as new com.sun.star.beans.PropertyValue
args4(0).Name = "Flags"
args4(0).Value = "T"
args4(1).Name = "FormulaCommand"
args4(1).Value = 0
args4(2).Name = "SkipEmptyCells"
args4(2).Value = false
args4(3).Name = "Transpose"
args4(3).Value = false
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


Kan iemand mij een hint geven waar de fout zit, in excel werkt deze methode wel

Alvast bedankt

Lammert
 
Zet eerst de code eens in codetags in plaats van in het rood. Dit doet pijn aan m'n ogen.
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan