ignora o sovrascrive automaticamente la formattazione della pagina del documento corrente con impostazioni predefinite libreoffice

Quando apro un documento creato da qualcun altro, vorrei che i margini fossero automaticamente impostati su 0,4 cm, l'orientamento della pagina in orizzontale e le dimensioni della pagina in A3.

Mio padre riceve per email un foglio di lavoro ogni settimana e le stampa. Per adattarli a una pagina applica queste impostazioni, il che è abbastanza laborioso. Ho pensato che ci doveva essere un modo più rapido per farlo!

Ho provato a creare un nuovo modello predefinito con queste impostazioni, ma funziona solo per un nuovo documento vuoto. Ho provato a creare uno stile per applicare rapidamente queste impostazioni ma mi sono reso conto che questi stili sono specifici del documento / modello (?) E quindi non vengono visualizzati quando si apre il documento di qualcun altro.

Qualcuno ha qualche idea su come posso farlo? Grazie =]

Un modo sarebbe utilizzare una macro per impostare i parametri della pagina e salvare la macro in una libreria accessibile da tutti i fogli. La macro potrebbe essere assegnata al menu libreoffice. Non sarebbe automatico, ma potrebbe essere eseguito facendo clic sulla voce di menu nel foglio di calcolo che si desidera modificare.

Questa macro in un forum OpenOffice è il più vicino possibile. Sembra funzionare in LibreOffice.

sub formatpage()
rem from http://user.services.openoffice.org/en/forum/viewtopic.php?f=20&t=42863
rem original by GWS with addition by Villory
rem modified for A3 and 0.4 cm margin
Dim sS      as String     '$     'Style name
Dim oStyle    as Object   'The current page style

pageStyles = thisComponent.StyleFamilies.getByName("PageStyles")
page = pageStyles.getByName("Default")

REM A3
page.width=29700
page.height=42000

REM SET MARGINS LEFT, RIGHT, TOP, BOTTOM = .4 cm"
page.LeftMargin = 400
page.RightMargin = 400
page.TopMargin = 400
page.BottomMargin = 400

REM Set Page Orientation TO LANDSCAPE
Dim printerOption(0) As New com.sun.star.beans.PropertyValue
printerOption(0).Name = "PaperOrientation"
printerOption(0).Value = com.sun.star.view.PaperOrientation.LANDSCAPE
thisComponent.Printer = printerOption()

sh=ThisComponent.Sheets.getByIndex(0)
sh.PageStyle=("Default")

end sub