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
|