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
|