Modificare dimensione pagina

[Cesare_c]

Buongiorno, ho importato in Writer documenti .docx che sono costituiti da sezioni.
Volendo modificare i margini della pagina lo devo fare per ogni sezione e non trovo come farlo per tutto il documento con un solo comando.
Grazie
Cesare

[Kyodake]

In LibreOffice Writer, quando un file .docx ha più sezioni e ciascuna sezione ha il proprio stile di pagina, l’applicazione globale dei margini richiederebbe una macro.
Una macro che imposta margini personalizzati, ad esempio 2 cm su tutti i margini (è possibile modificarli), potrebbe avere un aspetto simile a questo:

Sub CambiaMarginiStiliPagina

    Dim oDoc As Object
    Dim oStyles As Object
    Dim oStyle As Object
    Dim i As Integer

    ' Margini in centimetri (convertiti in 1/100 di mm)
    Dim margine_sinistro As Long : margine_sinistro = 2000
    Dim margine_destro As Long : margine_destro = 2000
    Dim margine_superiore As Long : margine_superiore = 2000
    Dim margine_inferiore As Long : margine_inferiore = 2000

    oDoc = ThisComponent
    oStyles = oDoc.StyleFamilies.getByName("PageStyles")

    For i = 0 To oStyles.getCount() - 1
        oStyle = oStyles.getByIndex(i)
        On Error Resume Next
        oStyle.LeftMargin = margine_sinistro
        oStyle.RightMargin = margine_destro
        oStyle.TopMargin = margine_superiore
        oStyle.BottomMargin = margine_inferiore
        On Error GoTo 0
    Next i

    MsgBox "Margini applicati a tutti gli stili di pagina.", 64, "Fatto"

End Sub

[Cesare_c]

Grazie Kyodake, fa proprio quello che mi serve.