Word: Textfelder ansprechen und verschieben
10.08.2018 10:02:29
Marco
mag mich bitte jemand retten:
Ich habe ca. 30 Word-Doc mit hunderten Textfelder. Dies müssen nun fast alle verschoben werden. Ich dachte an folgendes:
1. Textfeld mit Mouse anwählen
2. VBA verschiebt
3. VBA wählt nächstes Textfeld an
4. Entscheiden, ob Feld verlassen wird oder Makro gestartet wird
Der Makro-Recorder ermöglicht es mir z.B. Textfeld 509 zu verschieben, jedoch kann ich nicht alle Textfelder mit Nummern einzeln angeben. Bisher gescheitert bin ich an: Activeshapes, "Textfeld" & i und weiteren versuchen...
Sub Makro2()
ActiveDocument.Shapes.Range(Array("Textfeld 509")).Left = 55
ActiveDocument.Shapes.Range(Array("Textfeld 509")).Top = 55
Selection.EscapeKey
End Sub
Danke für die Mühe und Hilfe.
Marco
Anzeige