OpenOffice.info

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 

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

[code]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
[/code]

Schönen Tag noch!
Anna

[quote="AnnaM"]Kann mir bitte jemand sagen, wie das Makro in OpenOffice Basic lauten muss, oder einen Tipp geben?[/quote]
Vielleicht findest du den Lösungsweg mit Hilfe dieser Beispieldatei:
[url]http://de.openoffice.info/viewtopic.php?t=57727&p=216205#p216205[/url]

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

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



[color=#00AA00][b]Moderation:[/b]
Thema von Bereich [url=http://de.openoffice.info/viewforum.php?f=1]OOo Writer[/url] nach [url=http://de.openoffice.info/viewforum.php?f=18]OOo Basic und Java[/url] verschoben, wo alle Themen zur Basic-Programmierung hingehören.
lorbass, Moderator[/color]