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

#1 Re: Writer » Makro na velikost stránky, okraje, orientaci a počet sloupců stránky » 19. 12. 2010 11:59:07

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.

#2 Writer » Makro na velikost stránky, okraje, orientaci a počet sloupců stránky » 18. 12. 2010 22:08:20

milan.travnicek
Odpovědí: 3

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

Zápatí

Používáme FluxBB