ich brauch eure Hilfe:
Ich möchte ein Makro aufnehmen, das erstmal NUR Spalten löscht, vll auch eine ausrichtet.
Aufnahme gemacht und beendet und abgespeichert.
Beim abspielen allerdings kriege ich nur schlechte Ergebnisse, Spalten durcheinandergewürfelt und auch nicht gelöscht!
So sieht das Macro aus:
REM ***** BASIC *****
Sub Main
End Sub
sub Nic
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:DeleteColumns", "", 0, Array())
rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:DeleteColumns", "", 0, Array())
rem ----------------------------------------------------------------------
dim args3(0) as new com.sun.star.beans.PropertyValue
args3(0).Name = "HorizontalAlignment"
args3(0).Value = com.sun.star.table.CellHoriJustify.LEFT
dispatcher.executeDispatch(document, ".uno:HorizontalAlignment", "", 0, args3())
rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:DeleteColumns", "", 0, Array())
end sub
Muss ich da noch was beachten?
Dachte Aufnehmen und fertig, zumindest bei so mini aktionen

Grüsse Theo