Thema Datum  Von Nutzer Rating
Antwort
Rot Word VBA - Kapitel ausblenden, Nummerierung fortsetzen
09.01.2019 14:30:03 Cindy S.
NotSolved

Ansicht des Beitrags:
Von:
Cindy S.
Datum:
09.01.2019 14:30:03
Views:
82
Rating: Antwort:
  Ja
Thema:
Word VBA - Kapitel ausblenden, Nummerierung fortsetzen

Hallo VBA-Gemeinde,

Momenten arbeite ich an einer Ausgestaltung eines Produkthandbuchs, welches auf 200 Seiten alle Module + Varianten beschreibt. Da jedes Angebot auf den Kunden zugeschnitten sein soll, möchte ich mit wenigen Klicks unrelevante Varianten 'verstecken'  und dabei eine konsistente Nummerierung beibehalten. Der Aufbau der Gliederung sowie das gewünschte Ergebnis habe ich examplarisch unten dargestellt (Fokus Variante b). Für jedes Kapitel habe ich eine eigene Textmarke erstellt.

Die Lösung soll mit ActiveX Kontrollkästchen erfolgen, welche später in eine UserForm eingebunden werden sollen.

Sub CheckBox1_Click()
ActiveDocument.Bookmarks("Beispiel-Textmarke").Range.Font.Hidden = CheckBox1.Value
ActiveDocument.Bookmarks("Beispiel-Textmarke").Range.ListFormat.RemoveNumbers wdNumberAllNumbers
/Blendet betroffene Textmarke aus und entfernt die Kapitelnummer (funktioniert)

ActiveDocument.Bookmarks("Beispiel-Textmarke").Range.Font.Hidden = False
ActiveDocument.Bookmarks("Beispiel-Textmarke").Range.ListFormat.ApplyNumberDefault
/Soll richtige Kapitelnummer generieren

End Sub

Beim aktivieren des Häckchens wird das richtige Kapitel erstellt. Allerdings generiert Word aus jedem Absatz ein eigenes, 
neues Kapitel der obersten Listenebene.


1. Bauteil xx

1.1 Variante a

1.2 Variante b

2. Bauteil yy

2.1 Variante c

2.2. Variante d

zu:

1. Bauteil xx

1.1 Variante b

2. Bauteil yy

2.1 Variante d


 

Vielen Dank für Eure Hilfe!

Cindy


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst genau und ausführlich
  • 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 markieren Sie Ihre Anfrage als erledigt wenn Ihnen geholfen wurde
Thema: Name: Email:

 
 

Thema Datum  Von Nutzer Rating
Antwort
Rot Word VBA - Kapitel ausblenden, Nummerierung fortsetzen
09.01.2019 14:30:03 Cindy S.
NotSolved