Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
WORD (2016): Textfelder ausblenden auf mehreren Seiten |
19.07.2022 15:10:46 |
Boris |
|
|
|
19.07.2022 16:27:21 |
ralf_b |
|
|
|
20.07.2022 09:22:33 |
Gast38788 |
|
|
|
20.07.2022 09:22:35 |
Gast66704 |
|
|
|
20.07.2022 09:22:35 |
Gast23850 |
|
|
|
20.07.2022 09:22:36 |
Gast80997 |
|
|
Von:
Boris |
Datum:
19.07.2022 15:10:46 |
Views:
751 |
Rating:
|
Antwort:
|
Thema:
WORD (2016): Textfelder ausblenden auf mehreren Seiten |
Hallo zusammen, ich nutze auf verschiedenen Seiten im Dokument (WORD 2016, Windows 10) Textfelder zum Markieren von verschiedenen Abschnitten. Jetzt versuche ich über zwei VBA-Button diese Textfelder Ein- bzw. Ausschaltbar zu machen. Momentan mache ich das noch mit zwei verschiedenen Buttons, die ich auf der ersten Seite eingebaut habe. Wenn ich die Buttons betätige werden allerdings nur die Textfelder auf der ersten Seite aus- und wieder eingeblendet.
Drei Fragen habe ich dazu:
1. Wie kann ich aus den zwei Buttons einen zum ein- und ausschalten machen?
2. Kann ich die Textfelder ausblenden ohne sie alle einzeln im Code ansprechen zu müssen?
3. Wie schaffte ich es, dass der Schalter bzw. der VBA-Code auch für die anderen Seiten funktioniert?
Vielen Dank für die Unterstützung!
Gruß,
Boris
Mein Code sieht so aus ---------------------------------------------
Private Sub ButtonON_Click()
'Seite 1
ActiveDocument.Shapes("Textfeld 01").Visible = True
ActiveDocument.Shapes("Textfeld 02").Visible = True
ActiveDocument.Shapes("Textfeld 03").Visible = True
'Seite 2
ActiveDocument.Shapes("Textfeld 04").Visible = True
ActiveDocument.Shapes("Textfeld 05").Visible = True
ActiveDocument.Shapes("Textfeld 06").Visible = True
End Sub
Private Sub ButtonOFF_Click()
'Seite 1
ActiveDocument.Shapes("Textfeld 01").Visible = False
ActiveDocument.Shapes("Textfeld 02").Visible = False
ActiveDocument.Shapes("Textfeld 03").Visible = False
'Seite 2
ActiveDocument.Shapes("Textfeld 04").Visible = False
ActiveDocument.Shapes("Textfeld 05").Visible = False
ActiveDocument.Shapes("Textfeld 06").Visible = False
End Sub
Mein Code sieht so aus ---------------------------------------------
|
- 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
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- 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
|
WORD (2016): Textfelder ausblenden auf mehreren Seiten |
19.07.2022 15:10:46 |
Boris |
|
|
|
19.07.2022 16:27:21 |
ralf_b |
|
|
|
20.07.2022 09:22:33 |
Gast38788 |
|
|
|
20.07.2022 09:22:35 |
Gast66704 |
|
|
|
20.07.2022 09:22:35 |
Gast23850 |
|
|
|
20.07.2022 09:22:36 |
Gast80997 |
|
|