Kopier "Page Setup" i word via VBA Macro

jeg optog en marko i word 2003 og fik flg. kode
'jeg optog ændre side layout stående/liggende
' ændre margin fra 3 til 3,9
'ændre

Sub sideop()
'
' sideop Makro
' Makro indspillet 25-01-2006 af Thomas
'
    With ActiveDocument.Styles(wdStyleNormal).Font
        If .NameFarEast = .NameAscii Then
            .NameAscii = ""
        End If
        .NameFarEast = ""
    End With
    With ActiveDocument.PageSetup
        .LineNumbering.Active = False
        .Orientation = wdOrientLandscape 'ændre side retning
        .TopMargin = CentimetersToPoints(2) 'top marg.
        .BottomMargin = CentimetersToPoints(2) 'bund marg.
        .LeftMargin = CentimetersToPoints(3.9) 'venstre marg.
        .RightMargin = CentimetersToPoints(3) 'højre marg
        .Gutter = CentimetersToPoints(0) '?
        .HeaderDistance = CentimetersToPoints(1.25) '?
        .FooterDistance = CentimetersToPoints(1.25) '?
        .PageWidth = CentimetersToPoints(29.7) 'side bredde
        .PageHeight = CentimetersToPoints(21) '?
        .FirstPageTray = wdPrinterDefaultBin '? defaultprinter?
        .OtherPagesTray = wdPrinterDefaultBin '?
        .SectionStart = wdSectionNewPage '?
        .OddAndEvenPagesHeaderFooter = False '?
        .DifferentFirstPageHeaderFooter = False '?, nok forskelleig side hovd sidhoved på første side
        .VerticalAlignment = wdAlignVerticalTop '?
        .SuppressEndnotes = False '?
        .MirrorMargins = False '?
        .TwoPagesOnOne = False 'to sider på en!
        .BookFoldPrinting = False ' print som en bog
        .BookFoldRevPrinting = False '?
        .BookFoldPrintingSheets = 1 '?
        .GutterPos = wdGutterPosTop '?
    End With
End Sub


håber du kan brug det, ellers optag evt. selv en makro.

Tak jeg prøver det lige. Hvorfor havde jeg ikke tænkt på det?? :-p