Liebes Forum,
ich habe eine neue Anfrage, die es zu lösen gilt.
Ich zähle in meinem WORD-Dokument die Überschriftern 1ster Ebene("Überschrift 1")
Solange ich kein Inhaltsverzeichnis implementiert habe läuft es auch wie geschmiert.
Hier der Code:

Sub Kapitel_zaehlen()

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'########################################################################################################################'
'#Dieses Modul zählt die Kapitel/Überschriften im WORD-Dokument.                                                        #'
'#Der ermittelte Wert wird zur weiteren Verwendung an die globale Variable "GI_Kapitel_gesamt_in_WORD" übergeben.       #'
'########################################################################################################################'
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

'Variablendeklaration
Dim Kapitel_gesamt        As Integer

'Variablen vorbelegen
aktuelles_Kapitel = 0                                                   'Kapitelanzahl initialisieren

'##########################################################################
'#Ermittlung der im Dokument enthaltenen Kapitel (Überschrift 1ster Ebene)#
'##########################################################################


'vorbereiten der Suchoperation
ActiveDocument.Range(0, 0).Select                                       'Curser auf den Dokumentenanfang setzen
Selection.Find.ClearFormatting                                          'entfernen von Text- und Absatzformatierung aus Suchoperation
Selection.Find.Style = ActiveDocument.Styles("Überschrift 1")           'Suchattribut festlegen auf die Überschriften der "Ebene 1"

'Eigenschaften für Suche festlegen
With Selection.Find
    .Forward = True                                                     'Suchrichtung von Dokumentanfang --> Dokumentende (wenn forward=true)
End With

Selection.Find.Execute                                                  'Suche nach nächster Überschrift der "Ebene 1" ausführen

'Schleife zum selektieren von Überschriften der "Ebene 1"
While Selection.Find.Found
    
    aktuelles_Kapitel = aktuelles_Kapitel + 1                           'Anzahl gefundener Kapitel inkrementieren
    Selection.Find.Execute                                              'Suche nach nächster Überschrift der "Ebene 1" ausführen
    
Wend                                                                    'Sprungmarke While-Schleife

Selection.Collapse                                                      'Selektion Aufheben
GI_Kapitel_gesamt_in_WORD = aktuelles_Kapitel                           'kopieren der gezählten Kapitel

End Sub

Wenn ich nun ein Inhaltsverzeichnis einfüge und die Kapitel zähle, wird meine Schleife nie wieder beendet.
Es wird nicht einmal ein Fehler ausgegeben. -> Also TskMng und dann Anwendung beenden.

Hat jemand eine Idee, wie ich mein Inhaltsverzeichnis von der Suche ausnehmen kann?

LG
Andreas