Makro - Text an Rechteck ausrichten

[benni313]

Hallo zusammen,

ich bin bisher nicht besonders in die Makro-Welt vertraut.

Ich möchte gerne einen Text in ein Rechteck zentrieren und dann in einem zusammengeführten Seriendruck-Dokument auf alle Seiten anwenden.

Ich habe nun ein Makro aufgezeichnet (mit Ausrichten und verteilen) und bereits Teilerfolge erzielt.

Code:

Sub Macro1()
   ' Recorded 29.01.2024
   ActiveDocument.CreateShapeRangeFromArray(ActiveLayer.Shapes(3), ActiveLayer.Shapes(1)).AlignAndDistribute 3, 3, 0, 1, False, 2
End Sub

Hiermit funktioniert es aber leider immer nur auf der angewählten ausgewählten Seite.

Meine beiden Objekte heißen "Text" und "Rechteck1". Sie sind natürlich auf allen Seiten identisch.

Wie schaffe ich es, dass "Text" an "Rechteck1" horizontal und vertikal zueinander ausgerichtet sind. Und zwar auf alle Seiten des Dokuments?

Vielen Dank für eure Unterstützung.
Benni