Thema Datum  Von Nutzer Rating
Antwort
20.06.2016 15:44:56 Andreas
NotSolved
20.06.2016 17:56:41 Holger
NotSolved
20.06.2016 18:03:32 Gast90471
NotSolved
Blau VBA-WORD Überschriften zählen
 20.06.2016 18:11:31 Gast75888
NotSolved
20.06.2016 19:47:24 Gast34058
NotSolved
23.06.2016 14:31:39 Gast30465
Solved

Ansicht des Beitrags:
Von:
Gast75888		 Datum:
20.06.2016 18:11:31		 Views:
959		 Rating:
     
Antwort:
  Ja
Thema:
VBA-WORD Überschriften zählen

Und nochmal ich! Ergänzend zu eben hätte ich noch einen Code der ohne find auskommt. Vielleicht behebt der dein Problem. Gezählt wird hierbeu nur die Überschrift mit Level 1 VG

 

Sub zählen()
Dim anzahl As Long
Dim kap

anzahl = 0
For Each kap In ActiveDocument.Paragraphs
    If kap.OutlineLevel = 1 And kap.Range.Text <> Chr(13) Then
            anzahl = anzahl + 1
    End If
Next kap

MsgBox anzahl
End Sub

 

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
20.06.2016 15:44:56 Andreas
NotSolved
20.06.2016 17:56:41 Holger
NotSolved
20.06.2016 18:03:32 Gast90471
NotSolved
Blau VBA-WORD Überschriften zählen
 20.06.2016 18:11:31 Gast75888
NotSolved
20.06.2016 19:47:24 Gast34058
NotSolved
23.06.2016 14:31:39 Gast30465
Solved