Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema ListBox
BildScreenshot zu ListBox ListBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema SpinButton
BildScreenshot zu SpinButton SpinButton-Seite mit Beispielarbeitsmappe aufrufen

Word: Textfelder ansprechen und verschieben


Betrifft: Word: Textfelder ansprechen und verschieben von: Marco
Geschrieben am: 10.08.2018 10:02:29

Hallo zusammen,

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

  

Betrifft: AW: Beispiel von: Fennek
Geschrieben am: 10.08.2018 10:51:18

Hallo,

in diesem Forum gibt es fast nur Fragen zu xl, aber ...

Erstelle bitte eine Beispieldatei mit "lore ipsum" und mindestens 3 Feldern, deren Namen und Position aber SEHR EXAKT mit dem Original übereinstimmen.

Ob dann jemand antwortet ...

mfg


  

Betrifft: AW: Beispiel von: Marco
Geschrieben am: 10.08.2018 13:38:04

Ich weiß, dass hier die Excel Pro's sitzen...dann ist Word doch kein Problem :-)

https://www.herber.de/bbs/user/123260.doc


  

Betrifft: AW: Word: Textfelder ansprechen und verschieben von: Fennek
Geschrieben am: 10.08.2018 14:49:58

Hallo,

teste mal:

sub F_en()
with ActiveDocument.shapes
     for i = 1 to .count
         .item(i).left = 22
     next i
end with
end sub
In Einzelfällen muss von Hand korrigiert werden.

mfg


  

Betrifft: AW: in Docx 2016 (owT) von: Fennek
Geschrieben am: 10.08.2018 14:50:56




  

Betrifft: AW: in Docx 2016 (owT) von: Marco
Geschrieben am: 10.08.2018 15:28:03

Es funktioniert...DANKE DIR!!!


Beiträge aus dem Excel-Forum zum Thema "Word: Textfelder ansprechen und verschieben"