[VBA word2010] Samenvoegen portret en landschap pagina's

[Punkrocker]

Ik heb een aantal documenten die ik wil samenvoegen tot een document. Ze zijn potrait georiënteerd op een na die landscape is georiënteerd.

Als ik ze samenvoeg krijgt alles een portait-oriëntatie. Als ik ze verdeel in secties blijft alleen het eerste geopende document in portait en de rest wordt landscape...
Ik doe iets verkeerd. Waarschijnlijk in een volgorde van acties maar ik zie het niet.

code:

'Totaaldocument

'Doc1

Documents.Open FileName:=portret1
    ActiveDocument.SaveAs FileName:=Textlocatie.Value & "Totaal " & Textprojectnr.Value & ".doc"


       'Bookmarks potret1
    
        ActiveDocument.Bookmarks enz...

'Doc2

Selection.InsertBreak (WdBreakType.wdSectionBreakNextPage)

Selection.TypeParagraph
Selection.PageSetup.Orientation = wdOrientPortrait
    Selection.InsertFile FileName:=portret2

 
    'Bookmarks portret2
        ActiveDocument.Bookmarks enz...


'Doc3

Selection.InsertBreak (WdBreakType.wdSectionBreakNextPage)

Selection.TypeParagraph
 Selection.PageSetup.Orientation = wdOrientLandscape
    Selection.InsertFile FileName:=Landscape1

       'Bookmarks Landscape1
    
                        ActiveDocument.Bookmarks enz...
                                   

ActiveDocument.SaveAs FileName:=Textlocatie.Value & "Totaal " & Textprojectnr.Value & ".doc"

Waar zit ik verkeerd?

[Lustucru]

'Selection' is een bitch. Voer de code eens stap voor stap uit en kijk waar de selection exact staat op het moment van invoegen van pagesetup en fileinsert.