Hallo Gast73552,
Danke für deine Hilfe!
Leider funktioniert es immer noch nicht über alle Zeichenblätter ...
Sub BearbeiterAndern2()
ThisDocument.Pages(1).Shapes("A3_Kopf").Shapes("Bearbeiter").Text = "Testname"
End Sub
Es wird immer nur das entsprechende Zeichenblatt geändert, welches ich unter Pages(1) eintrage, also wenn ich die 1 in 5 oder so ändere, wird auch nur Blatt fünf geändert u.s.w.
|