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:
926		 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 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 Word VBA - Kapitel ausblenden, Nummerierung fortsetzen
 09.01.2019 14:30:03 Cindy S.
NotSolved