OpenOffice.cz - web věnovaný kancelářským balíkům OpenOffice.org

milan.travnicek

Člen

Registrace: 18. 12. 2010

Příspěvků: 2

Makro na velikost stránky, okraje, orientaci a počet sloupců stránky

Dobrý den,

potřebuji v OpenOffice Writer udělat makro, kterým se nastaví velikost stránky A4, orientace krajina, okraje stránky na jeden centimetr a dva sloupce. Když dám záznam makra, tak makro vypadá takto. Ale toto makro pouze zobrazí okno nastavení stránky, nic s jednotlivými informacemi neudělá. Již několik hodin jsem hledal odpověď na nejrůznějších fórech, ale odpověď jsem nenašel.

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

j-pastierik

Člen

Registrace: 15. 11. 2004

Příspěvků: 761

Re: Makro na velikost stránky, okraje, orientaci a počet sloupců stránky

Takéto makro nie je na nahrávanie. Pretože začínate s programovaním, urobte to povedzme tak, že si pripravíte šablónu dokumentu a potom podľa nej v makre vytvoríte dokument (makro z Useful Macro Information For OpenOffice.org od  Andrew Pitonyak):

Sub NewDoc
 Dim oDoc
 Dim sPath$
 Dim a(0) As New com.sun.star.beans.PropertyValue
 a(0).Name = "AsTemplate"
 a(0).Value = true
 sPath$ = "file://~/Documents/DocTemplate.stw" ' toto si nezabudnite zmeniť podľa seba
 oDoc = StarDesktop.LoadComponentFromUrl(sPath$, "_blank" , 0, a())
End Sub

milan.travnicek

Člen

Registrace: 18. 12. 2010

Příspěvků: 2

Re: Makro na velikost stránky, okraje, orientaci a počet sloupců stránky

Možná jsem to nepochopil, ale potřeboval bych takto zformátovat již existující dokument, ne vytvořit prázdný, který je již zformátovaný.. Myslel jsem si, že to nebude problém, když mi s úspěchem funguje třeba takovéto makro, kterým nastavím velikost písma.

rem ----------------------------------------------------------------------
dim args1(2) as new com.sun.star.beans.PropertyValue
args1(0).Name = "FontHeight.Height" ***
args1(0).Value = 15
args1(1).Name = "FontHeight.Prop" ***
args1(1).Value = 100
args1(2).Name = "FontHeight.Diff" ***
args1(2).Value = 0

dispatcher.executeDispatch(document, ".uno:FontHeight" ******, "", 0, args1())

*** potřeboval bych zjistit, jaké jméno (Name) je třeba použít zde, abych pak do hodnoty (Value) mohl zadat třeba levý margin, pravý margin, atd.

***** zde bych potřeboval zjistit, který .uno: zde použít, aby to fungovalo.

j-pastierik

Člen

Registrace: 15. 11. 2004

Příspěvků: 761

Re: Makro na velikost stránky, okraje, orientaci a počet sloupců stránky

http://api.openoffice.org/docs/common/r … le-ix.html
hlavne http://api.openoffice.org/docs/common/r … rties.html