Word enthält eine integrierte Funktion für nummerierte Listen, mit der Sie Ihre Listen schnell entwickeln können. Dies ist ideal für Listen in aufsteigender Reihenfolge (1 bis 10), aber nicht so gut für Listen in absteigender Reihenfolge (10 bis 1).

Wenn Sie umgekehrte Listen benötigen, gibt es in Word keine automatische Funktion, mit der Sie diese erstellen können. Eine Möglichkeit, dies zu umgehen, besteht darin, einfach Ihre eigenen Listennummern zu erstellen und diese in die gewünschte Reihenfolge zu bringen. Das Problem dabei ist, dass der Prozess manuell intensiv ist. Darüber hinaus kann die reguläre Funktion für nummerierte Listen in Word Ihre umgekehrte Liste zerstören, wenn Sie am Ende eines vorhandenen Listenelements die Eingabetaste drücken.

Eine andere Möglichkeit, mit der Situation umzugehen, besteht darin, jedem Element in Ihrer Liste ein SEQ-Feld voranzustellen, um die Nummer für das Listenelement zu generieren. Wenn Sie mit den Listenelementen fertig sind, können Sie die Felder aktualisieren und die Absätze in absteigender Reihenfolge sortieren. Der offensichtliche Nachteil dieses Ansatzes besteht darin, dass Sie Ihre ursprüngliche Liste in umgekehrter Reihenfolge eingeben müssen, da die endgültige Sortierung die Reihenfolge für Sie übernimmt. Wenn Sie also 10 Elemente hätten, würden Sie zuerst Nummer 10, dann Nummer 9 usw. eingeben. Wenn Sie die Sortierung durchgeführt haben, wird die Reihenfolge der Artikel umgekehrt und jeder Artikel wird in seiner endgültigen Reihenfolge angezeigt.

Ein weiterer Nachteil besteht darin, dass das Hinzufügen von Elementen zur Liste umständlich wird. Wenn Sie die Felder in Ihrem Dokument aktualisieren, werden die Zahlen vollständig entfernt. Daher muss ein zufriedenstellenderer Ansatz gefunden werden.

Eine Möglichkeit besteht darin, das SEQ-Feld so zu ändern, dass die beabsichtigte Reihenfolge der Absätze besser angezeigt wird. Die Verwendung eines zusammengesetzten Felds für die Listennummer kann dies auf folgende Weise tun:

{=NP — {SEQ RevList}}

In diesem Fall müssen die Zeichen NP durch eine Nummer eins ersetzt werden, die größer ist als die Anzahl der Elemente in Ihrer endgültigen Liste. Wenn Ihre Liste also aus 25 Elementen besteht, wäre NP 26. Das SEQ-Feld wird verwendet, um eine aufsteigende Reihenfolge von Zahlen zu generieren, die von NP abgezogen werden, um eine endgültige Nummerierung in umgekehrter Reihenfolge zu erhalten.

Solange Sie die Anzahl der Absätze (Elemente) in Ihrer Liste kennen und daran denken, das Feld am Anfang jedes Absatzes zu platzieren, sind Sie in hervorragendem Zustand. Wenn Sie eine der beiden vergessen, kann Ihre Liste gelöscht werden. Um dies zu lösen, kann ein Makro nützlich sein. Die folgenden Makros (RevList und DoList) reichen aus.

Sub RevList()

Dim ShowFlag As Boolean     Dim Numparas As Integer     Dim Counter As Integer

Numparas = Selection.Paragraphs.Count     Selection.MoveLeft Unit:=wdCharacter, Count:=1     ShowFlag = ActiveWindow.View.ShowFieldCodes     ActiveWindow.View.ShowFieldCodes = True     DoList Numparas     Counter = 1     While Counter < Numparas         Selection.Move Unit:=wdParagraph, Count:=1         DoList Numparas         Counter = Counter + 1     Wend     ActiveWindow.View.ShowFieldCodes = ShowFlag     ActiveDocument.Select     ActiveDocument.Fields.Update End Sub
Private Sub DoList(Cnt As Integer)

Selection.Extend     Selection.MoveRight Unit:=wdCharacter, Count:=1     If InStr(Selection.Text, "SEQ") > 0 Then         Selection.MoveRight Unit:=wdCharacter, Count:=2         Selection.Delete Unit:=wdCharacter, Count:=1     Else         Selection.Collapse Direction:=wdCollapseStart     End If     Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, _         PreserveFormatting:=False     Selection.TypeText Text:="=" & Cnt + 1 & "-"

Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, _         PreserveFormatting:=False     Selection.TypeText Text:="SEQ RevList"

With Selection.ParagraphFormat         .LeftIndent = InchesToPoints(0.5)

.FirstLineIndent = InchesToPoints(-0.5)

End With     Selection.MoveRight Unit:=wdCharacter, Count:=4     Selection.InsertAfter "." & vbTab End Sub

Um die Makros zu verwenden, wählen Sie einfach die Absätze aus, die in die Liste aufgenommen werden sollen, und führen Sie dann RevList aus, das wiederum DoList verwendet. Die richtigen Felder werden am Anfang jedes Absatzes platziert (entfernen Sie alle bereits vorhandenen) und wenden Sie einen hängenden Einzug auf die Absätze an.

Wenn Sie die Art und Weise ändern möchten, in der der hängende Einzug erstellt wird, ändern Sie einfach die Zeilen im DoList-Makro, in denen die Eigenschaften LeftIndent und FirstLineIndent festgelegt sind.

_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.

Klicken Sie hier, um diese spezielle Seite in einem neuen Browser-Tab zu öffnen.

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

(Microsoft Word ist die weltweit beliebteste Textverarbeitungssoftware.) Dieser Tipp (1759) gilt für Microsoft Word 97, 2000, 2002 und 2003. Sie finden eine Version dieses Tipps für die Multifunktionsleistenschnittstelle von Word (Word 2007) und später) hier:

Reverse Numbered Lists.