Seitenlayout mit Versatz bei mehrseitigen Dokumenten und Lochung

[Sally1801]

Hallo Sally,
InDesign kaufen oder immer zwei Seiten einfügen.

Solche Antworten kann man sich ja eigentlich sparen...

Die Idee mit dem Makro ist SUUUPPPER!
Ich habe mir auf deiner Basis noch einen gebaut, der alles wieder mittig setzt:

Code:

Sub mittig()
Dim p As Page
Count = 1
For Each p In ActiveDocument.Pages
    p.Activate
    p.Shapes.All.CreateSelection
    
    Dim s1 As Shape
    Set s1 = ActiveSelection.Group
    s1.AlignToPageCenter cdrAlignLeft + cdrAlignRight + cdrAlignTop + cdrAlignBottom, cdrTextAlignBoundingBox
    Dim grp1 As ShapeRange
    Set grp1 = s1.UngroupEx
    
Next p

End Sub

Ich werde mal testen wie weit ich damit komme, aber ein großes Danke schon mal