Tabelle per Makro formatieren

gefragt 2015-06-21 11:13:44 +0200

Dieser Post ist als Wiki-Post markiert

Das ist ein Wiki-Beitrag. Jeder mit Karma >75 darf diesen Beitrag verbessern.

Wie kann ich eine Tabelle in LibreOffice Writer per Makro formatieren? Habe ein Makro aufgezeichnet und einem Button zugewiesen. Nun stelle ich den Cursor in die Tabelle und klicke auf die Schaltfläche. Es tut sich nichts.

Das ist der Code des Makros:

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

rem ----------------------------------------------------------------------
dim args3(7) as new com.sun.star.beans.PropertyValue
args3(0).Name = "BorderOuter.LeftBorder"
args3(0).Value = Array(0,0,0,0,0,0)
args3(1).Name = "BorderOuter.LeftDistance"
args3(1).Value = 150
args3(2).Name = "BorderOuter.RightBorder"
args3(2).Value = Array(0,0,0,0,0,0)
args3(3).Name = "BorderOuter.RightDistance"
args3(3).Value = 150
args3(4).Name = "BorderOuter.TopBorder"
args3(4).Value = Array(0,0,0,0,0,0)
args3(5).Name = "BorderOuter.TopDistance"
args3(5).Value = 150
args3(6).Name = "BorderOuter.BottomBorder"
args3(6).Value = Array(0,0,0,0,0,0)
args3(7).Name = "BorderOuter.BottomDistance"
args3(7).Value = 150

dispatcher.executeDispatch(document, ".uno:BorderOuter", "", 0, args3())
end sub
Bearbeiten Tags ändern Melden schließen vereinen löschen