Makro zum Einstellen des Papierformats (Höhe) [gelöst]

[AnnaM]

Hallo,

ich würde gerne die Höhe des Papierformats mit einem Makro (Symbolleiste) zwischen zwei Varianten umschalten (Din A4 und 12 Zoll).
Ich habe entsprechende Makros in OpenOffice Basic aufgezeichnet, eine Symbolleiste angelegt und die Makros den Schaltflächen zugeordnet - klappt alles.

Allerdings öffnet das Makro nur das Dialogfenster zum Setzen des Papierformats - es soll aber die Höhe der Seite ändern, ohne dass der Benutzer einen Dialog sieht.

Kann mir bitte jemand sagen, wie das Makro in OpenOffice Basic lauten muss, oder einen Tipp geben?

Gruß,
Anna



Moderation:
Thema von Bereich OOo Writer nach OOo Basic und Java verschoben, wo alle Themen zur Basic-Programmierung hingehören.
lorbass, Moderator

[Rocko]

Kann mir bitte jemand sagen, wie das Makro in OpenOffice Basic lauten muss, oder einen Tipp geben?

Vielleicht findest du den Lösungsweg mit Hilfe dieser Beispieldatei:
viewtopic.php?t=57727&p=216205#p216205

Darin zeigt sich nämlich ganz besonders, wie vorteilhaft eigene Seitenvorlagen sein können.

[AnnaM]

Vielen Dank, das war schon mal eine Hilfe, aber ganz genau gepasst hat dieser Code-Schnipsel aus dem oooforum.org:

Code: Alles auswählen

Dim oStyle 
Dim sPageStyleName$ 
Dim oDoc 
Dim oVC 
DIM oPageStyles 

oDoc = ThisComponent 

oVC = ThisComponent.getCurrentController().getViewCursor() 
sPageStyleName = oVC.PageStyleName 
oPageStyles = ThisComponent.StyleFamilies.getByName("PageStyles") 
oStyle = oPageStyles.getByName(sPageStyleName) 

	oStyle.height = 29700 

Schönen Tag noch!
Anna