Thema Datum  Von Nutzer Rating
Antwort
Rot VBA WORD alle Steuerelementen durchsuchen
10.02.2019 19:35:13 flor62
NotSolved
10.02.2019 19:45:39 Gast13361
NotSolved
11.02.2019 17:13:38 Gast92225
NotSolved
11.02.2019 17:43:00 Gast20048
NotSolved
11.02.2019 19:25:27 flor62
NotSolved
11.02.2019 20:48:25 Gast66051
NotSolved
12.02.2019 17:59:58 Gast71316
NotSolved
12.02.2019 20:31:48 Gast27308
NotSolved

Ansicht des Beitrags:
Von:
flor62
Datum:
10.02.2019 19:35:13
Views:
847
Rating: Antwort:
  Ja
Thema:
VBA WORD alle Steuerelementen durchsuchen

Hallo,

für mein Problem habe ich auch nach einiger Recherche keinen entscheidenden Hinweis gefunden.

Ich habe in einer WORD-Datei mehrere (zig) Nur-Text-Inhaltsteuerelemente, die in verschiedenen Textfeldern (Forms) gruppiert und in einer Zeichnungsfläche abgelegt sind. Alle Steuerelemente haben einen eindeutigen "Title".

Das Steuerelement "Test1" kann ich ansprechen mit:
ActiveDocument.SelectContentControlsByTitle("Test1").Item(1).Range.Text = "neuer Text-Eintrag in Test1"
> um den Text zu ändern, oder mit
If ActiveDocument.SelectContentControlsByTitle("Test1").Item(1).Title = "Test1" then ...
> um den Titel des Steuerelementes abzufragen

Nun suche ich nach einer Möglichkeit, alle vorhandenen Steuerelemente zu durchsuchen und eine separate Aktion* zu starten, wenn im Steuerelement-Titel ein bestimmeter (Teil-)String enthalten ist. Ich möchte nicht alle denkbaren Titel durchprüfen, weil es riesige Lücken gibt (Test1, Test20, Test300, ...).

Kann mir jemand einen Tipp geben?

*Die separate Aktion wird das Befüllen der  im jeweiligen Textfeld "benachbarten" Text-Steuerelemente mit Informationen aus einem separaten Textfile sein.

 

 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot VBA WORD alle Steuerelementen durchsuchen
10.02.2019 19:35:13 flor62
NotSolved
10.02.2019 19:45:39 Gast13361
NotSolved
11.02.2019 17:13:38 Gast92225
NotSolved
11.02.2019 17:43:00 Gast20048
NotSolved
11.02.2019 19:25:27 flor62
NotSolved
11.02.2019 20:48:25 Gast66051
NotSolved
12.02.2019 17:59:58 Gast71316
NotSolved
12.02.2019 20:31:48 Gast27308
NotSolved