Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
VBA-WORD Überschriften zählen |
20.06.2016 15:44:56 |
Andreas |
|
|
|
20.06.2016 17:56:41 |
Holger |
|
|
|
20.06.2016 18:03:32 |
Gast90471 |
|
|
|
20.06.2016 18:11:31 |
Gast75888 |
|
|
|
20.06.2016 19:47:24 |
Gast34058 |
|
|
|
23.06.2016 14:31:39 |
Gast30465 |
|
|
Von:
Andreas |
Datum:
20.06.2016 15:44:56 |
Views:
2266 |
Rating:
|
Antwort:
|
Thema:
VBA-WORD Überschriften zählen |
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
|
- 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
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- 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
|
VBA-WORD Überschriften zählen |
20.06.2016 15:44:56 |
Andreas |
|
|
|
20.06.2016 17:56:41 |
Holger |
|
|
|
20.06.2016 18:03:32 |
Gast90471 |
|
|
|
20.06.2016 18:11:31 |
Gast75888 |
|
|
|
20.06.2016 19:47:24 |
Gast34058 |
|
|
|
23.06.2016 14:31:39 |
Gast30465 |
|
|