Makro - Text an Rechteck ausrichten

[Litschi]

Code:

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

  Next i
End Sub