OpenOffice.info

Sub de27540
' ungetestet - aus'm Kopp
oDokPageStyles = ThisComponent.getStyleFamilies().getByName( "PageStyles" )
oDokPageStyle = oDokPageStyles.getByName( "meineVorlage" ) 
oDokPageStyle.setPropertyValue "IsLandscape", TRUE
End Sub

Du wolltest doch "per Makro auf Querformat" umstellen ....


Dazu musst Du die benutzte Vorlage ändern.
Ein Stück Code irgendwo zu kopieren, dann nicht verstehen was nicht geht :roll:


Reicht Dir dieser Ansatz? [den Namen der von Dir verwendeten Seitenvorlage [b]ändern[/b]]
[code]Sub de27540
' ungetestet - aus'm Kopp
oDokPageStyles = ThisComponent.getStyleFamilies().getByName( "PageStyles" )
oDokPageStyle = oDokPageStyles.getByName( "meineVorlage" )
oDokPageStyle.setPropertyValue "IsLandscape", TRUE
End Sub[/code]

Das geht nicht mit [i]dispatcher[/i]-Code.

Sehe Dir mal die Seitenformatierungen im Code einer meiner Extensions an, bspw. [url=http://extensions.services.openoffice.org/project/OOoATL2]ATL2[/url] oder [url=http://extensions.services.openoffice.org/project/OOoBTL2]BTL2[/url]

Ja, es ist möglich.

Ändere die genutzte Seitenvorlage [color=#008000].setPropertyValue "IsLandscape", TRUE[/color]