Makro - Text an Rechteck ausrichten

[benni313]

Code:

Sub Macro1()
  For i = 1 To ActiveDocument.Pages.count
     ' hier dein Code

  Next i
End Sub

Vielen leiben Dank!
Es funktioniert leider wieder nur auf der aktuell angewählten Seite.

Hier mein kompletter aktueller Code

Code:

Sub Macro1()
     For i = 1 To ActiveDocument.Pages.Count
     ActiveDocument.CreateShapeRangeFromArray(ActiveLayer.Shapes(3), ActiveLayer.Shapes(1)).AlignAndDistribute 3, 3, 0, 1, False, 2
 Next i
End Sub