Seitenlayout mit Versatz bei mehrseitigen Dokumenten und Lochung

[Helmut]

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

nicht unbedingt... hab grad mal bisschen gespielt.

Code:

Sub seitenmover()
Dim p As Page
Count = 1
For Each p In ActiveDocument.Pages
    p.Activate
    p.Shapes.All.CreateSelection
    
    If Count Mod 2 Then
    ActiveSelection.Move -0.393701, 0#
    Else
    ActiveSelection.Move 0.393701, 0#
    End If
    Count = Count + 1
    
Next p
End Sub

Das Ding verschiebt die Seiteninhalte wechselseitig um Betrag x Allerdings ist das nun noch nicht der Weisheit letzter Schluss. Man müsste noch was schreiben was alle Seiten auf die Mitte zurücksetzt - sonst passt es ja bei eingefügten Seiten nicht mehr, bzw darf das halt nur dann ausgeführt weren wenn das Projekt fertiggestellt ist.

Cu Helmut