Fórum pro uživatele kancelářského balíku OpenOffice | LibreOffice
 

#1 18. 12. 2010 22:08:20

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())

Offline

#2 19. 12. 2010 07:03:08

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

Offline

#3 19. 12. 2010 11:59:07

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.

Offline

#4 19. 12. 2010 14:38:18

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

Offline

Zápatí