Michele benötigt eine Möglichkeit, die Anzahl der Listen mit Aufzählungszeichen oder die Anzahl der nummerierten Listen in einem Dokument zu zählen. Sie fragt sich, wie dies in Word erreicht werden könnte.

Dies ist etwas schwieriger als man sich vorstellen kann. Unter dem Strich können wir keine Möglichkeit finden, eine Zählung zuverlässig zu generieren. Der Grund dafür kann einige Erklärungen erfordern.

Es gibt mehrere Möglichkeiten, wie Sie Ihrem Dokument Stile hinzufügen können. Sie können beispielsweise auf der Registerkarte „Startseite“ des Menübands entweder auf die Werkzeuge „Nummerierte Liste“ oder „Aufzählungsliste“ klicken, um den aktuellen Absatz (oder die aktuellen Absätze) in eine Liste zu konvertieren. Sie können auch mit der Eingabe beginnen und Word (über AutoFormat während der Eingabe) erkennen lassen, ob Sie eine nummerierte Liste oder eine Liste mit Aufzählungszeichen erstellen. Sie können sogar Stile definieren und anwenden, die festlegen, was als Liste verwendet werden soll.

Unabhängig davon, wie Sie Ihre Listen erstellen, ordnet Word den Absätzen in der Liste einen Stil zu. Wenn Sie Ihren eigenen Stil erstellen und anwenden, wird dieser spezielle Stil (natürlich) verwendet. Wenn Sie die Symbolleistenschaltflächen verwenden oder sich beim Erstellen der Listen auf AutoFormat verlassen, wendet Word automatisch den Listenabsatzstil an. (Ja, es wird genau der gleiche Stil verwendet, unabhängig davon, ob es sich um eine nummerierte Liste oder eine Liste mit Aufzählungszeichen handelt.)

Da der Liste Stile zugeordnet sind, können Sie schnell feststellen, wie viele Instanzen des Stils verwendet werden. Sie müssen lediglich den Aufgabenbereich „Stile“ anzeigen (zeigen Sie die Registerkarte „Startseite“ des Menübands an und klicken Sie auf das kleine Symbol unten rechts in der Gruppe „Stile“). Suchen Sie den für Ihre Listen verwendeten Stil, bewegen Sie den Mauszeiger über diesen Stilnamen und klicken Sie dann auf den Abwärtspfeil rechts neben dem Namen. Es wird etwas Ähnliches wie eines der folgenden angezeigt:

  • Alle auswählen: (Keine Daten)

  • Wählen Sie Alle X-Instanzen aus

Wenn das, was Sie sehen, mit dem ersten Format übereinstimmt, wählen Sie diese Option. Wenn Sie mit der Maus über den Stilnamen fahren und erneut auf den Abwärtspfeil klicken, sollte das angezeigte Format mit dem zweiten Format übereinstimmen.

Sie könnten denken, dass dies Ihnen die Anzahl der Listen in Ihrem Dokument anzeigt. Es tut nicht; Es wird nur die Anzahl der Absätze angezeigt, die mit diesem bestimmten Stil formatiert wurden. Wenn Sie also eine einzelne Liste haben, die aus 6 Elementen besteht, wird eine Anzahl von 6 zurückgegeben.

Daher bietet dieser Ansatz – Zählstile – keine zuverlässige Möglichkeit, eine Listenanzahl zu bestimmen.

Die andere Möglichkeit, die Sie in Betracht ziehen könnten, besteht darin, mithilfe eines Makros zu bestimmen, wie viele Listen sich in Ihrem Dokument befinden. Word verwaltet eine Listensammlung und stellt sie VBA zur Verfügung. Sie können jede Liste im Dokument durchgehen und ihre ListType-Eigenschaft überprüfen. Diese Eigenschaft kann tatsächlich einer von sieben verschiedenen Werten sein, wie durch die folgenden Aufzählungen angezeigt:

wdListBullet wdListListNumOnly wdListMixedNumbering wdListNoNumbering wdListOutlineNumbering wdListPictureBullet * wdListSimpleNumbering

Sie können wahrscheinlich herausfinden, was jeder dieser Listentypen beinhaltet, aber wie sie sich in der Realität abspielen, kann etwas verwirrend sein. Betrachten Sie als Beispiel das folgende Makro:

Sub CheckLists()

Dim oL As List     Dim sMsg As String     Dim J As Integer     Dim K As Integer

J = ActiveDocument.Lists.Count     For Each oL In ActiveDocument.Lists         K = K + 1         oL.Range.Select

sMsg = "This is list " & K & " of " & J         sMsg = sMsg & " lists in the document." & vbCrLf & vbCrLf         sMsg = sMsg & "This list is this type: "

Select Case oL.Range.ListFormat.ListType             Case wdListBullet                 sMsg = sMsg & "wdListBullet"

Case wdListListNumOnly                 sMsg = sMsg & "wdListListNumOnly"

Case wdListMixedNumbering                 sMsg = sMsg & "wdListMixedNumbering"

Case wdListNoNumbering                 sMsg = sMsg & "wdListNoNumbering"

Case wdListOutlineNumbering                 sMsg = sMsg & "wdListOutlineNumbering"

Case wdListPictureBullet                 sMsg = sMsg & "wdListPictureBullet"

Case wdListSimpleNumbering                 sMsg = sMsg & "wdListSimpleNumbering"

End Select         MsgBox sMsg     Next oL End Sub

Wenn Sie ein Dokument haben, das Listen enthält, und dieses ausführen, wählt es nacheinander jede Liste aus und zeigt ein Meldungsfeld an, in dem angezeigt wird, für welchen Listentyp Word die Auswahl steht. Das Problem ist, wenn Ihr Text zwei Listen enthält, die durch einen oder zwei Absätze von Text durchsetzt sind, betrachtet Word ihn als eine einzelne Liste vom Typ wdListMixedNumbering. Mit anderen Worten, es wird nicht genau herausgefunden, was eine Liste ist und was keine Liste. Dies macht diesen speziellen Ansatz unzuverlässig für das Zählen der Anzahl der Listen in Ihrem Dokument, obwohl er genauer ist als der Count-the-Styles-Ansatz.

Das Fazit ist, wie eingangs erwähnt, dass es keine Möglichkeit gibt, die Anzahl der Listen mit Aufzählungszeichen und Nummern in einem Dokument genau zu zählen.

_Hinweis: _

Wenn Sie wissen möchten, wie die auf dieser Seite (oder auf einer anderen Seite der WordTips-Websites) beschriebenen Makros verwendet werden, habe ich eine spezielle Seite vorbereitet, die hilfreiche Informationen enthält.

WordTips ist Ihre Quelle für kostengünstige Microsoft Word-Schulungen.

(Microsoft Word ist die weltweit beliebteste Textverarbeitungssoftware.) Dieser Tipp (13528) gilt für Microsoft Word 2007, 2010, 2013, 2016, 2019 und Word in Office 365.