2e pagina liggend

[remcop1989]

Ik ben opzoek naar een macro die standaard ENKEL de 2e pagina in een Word document liggend maakt.

Is dit mogelijk en zo ja hoe?

 

[whittey]

Ik weet het niet zeker, kun je bij de pagina-instellingen dat niet instellen??

EDIT : Ik kreeg het zojuist niet voorelkaar, sorry

 

[OctaFish]

Die macro ziet er zo uit:

Sub PaginaLiggend()
    
    Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:="2"
    ActiveDocument.Range(Start:=Selection.Start, _
        End:=Selection.Start).InsertBreak Type:=wdSectionBreakNextPage
    Selection.Start = Selection.Start + 1
    ActiveDocument.Range(Start:=Selection.Start, _
        End:=ActiveDocument.Content.End).PageSetup.Orientation = wdOrientLandscape
    Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Count:=1, Name:=""
    ActiveDocument.Range(Start:=Selection.Start, _
        End:=Selection.Start).InsertBreak Type:=wdSectionBreakNextPage
    Selection.Start = Selection.Start + 1
    ActiveDocument.Range(Start:=Selection.Start, _
        End:=ActiveDocument.Content.End).PageSetup.Orientation = wdOrientPortrait
End Sub

Zal nog wel slimmer kunnen, maar deze doet het in ieder geval prima.