Seitenformatierung per Makro

[sascha2]

Hallo,

ich versuche mich erstmals mit Makros.

Um die Sache anfangs einfach zu halten, zeichne ich div. Aktionen mit "Makro auszeichnen" auf.

z.B folgendes:

Code: Alles auswählen

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:PageFormatDialog", "", 0, Array())


end sub

Dies sollte den Dialog "Format --> Seite --> Tabelle" öffnen und ein Haken bei "Drucken --> Objekte/Grafiken" setzen.

Aber dieses Makro öffnet natürlich nur den Dialog "Format --> Seite"

Code: Alles auswählen

uno:PageFormatDialog

Wie kann ich das Makro erweiteren, dass das richtige Tab geöffnet wird und der entsprechende Haken gesetzt wird?

gruß und danke,
Sascha

[Stephan]

Wie kann ich das Makro erweiteren, dass das richtige Tab geöffnet wird und der entsprechende Haken gesetzt wird?

praktisch garnicht, weil Makros nur sog. Dispatchercode aufzeichnen und hierbei die Möglichkeiten der Aufzeichnung und Anpassung begrenzt sind.

Du mußt das Ganze per Hand programmieren, ein Ansatz zur FRage Der SEitenformatierung ist hier:
http://www.dannenhoefer.de/faqstarbasic ... llen..html


Gruß
Stephan