Bild_2024-11-07_005207322
oerttel.net

Word Tipps

Aufzäh­lun­gen und numme­rierte Listen

Was das auto­ma­ti­sche Zählen betrifft, war Word schon immer schwer bedien­bar, was immer wieder zu Verzweif­lung bei den Usern führt.

Der wich­tigste Rat deshalb gleich vorab: Lassen Sie die Finger von den Auto­ma­tis­men, die Word Ihnen anbie­tet, sondern verwen­den Sie für Numme­rie­run­gen, Glie­de­run­gen und Aufzäh­lun­gen eigene Formatvorlagen!

Bild_2024-10-17_003313425

Die Aufzählungs- und Nummerierungsautomatik

Die Assis­tenz­funk­tio­nen für Aufzäh­lun­gen und numme­rierte Listen sind hilf­reich, solange es nur um einzelne Numme­rie­run­gen in kurzen Texten geht. Sie können aber in komple­xen Doku­men­ten zur Qual werden aufgrund ihrer Beharr­lich­keit. Es ist sinn­vol­ler, eigene Format­vor­la­gen anstelle der Schalt­flä­chen in Start | Absatz zu verwenden.

Geben Sie am Beginn eines neuen Absat­zes einen Binde­strich oder eine Ordnungs­zahl und dann einen Leer­schritt ein, schließt die Auto­Kor­rek­tur daraus, dass Sie eine Aufzäh­lung zu schrei­ben geden­ken, und bietet ihre Unter­stüt­zung an, indem sie diesen Absatz sofort umformatiert.

Jeder folgende Absatz wird genauso forma­tiert, bis Sie die Auto­ma­tik durch Abschal­ten der Funk­tion Aufzäh­lungs­zei­chen bzw. Numme­rie­rung beenden.

Nicht nur Bindestriche

Die Aufzäh­lungs­au­to­ma­tik reagiert auch auf weitere Zeichen:

* am Zeilen­be­ginn wird zu •,
zwei Binde­stri­che – werden zu n,
> wird zu Ø.

Zulässige Ordinalzahlen

Bei der Ausle­gung, ob die einlei­ten­den Zeichen Ordnungs­zah­len sind, ist Word sehr frei­zü­gig; die Auto­ma­tik spricht auch auf die Buch­sta­ben a und A an. Ein großes I oder klei­nes i wird zur Einlei­tung für eine römisch gezählte Liste.

Auch die Kenn­zeich­nung als Ordi­nal­zahl ist flexi­bel, die Auto­ma­tik funk­tio­niert mit ., ) und ( ).

Wich­tig: Die Numme­rie­rungs­au­to­ma­tik spricht nur an, wenn der Start­wert 1, a, A, i oder I ist. Höhere Werte werden ignoriert.

Eigene Formatvorlagen für Nummerierungen anlegen

Das Erstel­len eige­ner Numme­rie­rungs-Format­vor­la­gen ist für Schreib­pro­fis die einzige Exis­tenz­be­rech­ti­gung der drei Schalt­flä­chen in Start | Absatz.

  1. Forma­tie­ren Sie einen Absatz als Aufzäh­lung, Numme­rie­rung oder Glie­de­rung mit einer der Schalt­flä­chen in Start | Absatz.
  2. Rich­ten Sie die Zählung, Einrü­ckun­gen etc. ein wie in den nach­ste­hen­den Abschnit­ten beschrieben.
  3. Markie­ren Sie den Absatz und wählen Sie in der Mini­sym­bol­leiste Format­vor­la­gen| Format­vor­lage erstel­len.
  4. Tragen Sie im Dialog Neue Format­vor­lage erstel­len einen Namen für die Glie­de­rungs­for­mat­vor­lage ein.
  5. Ok

Nummerierung selbst definieren

Die Stan­dard-Glie­de­run­gen reichen oft nicht aus, um spezi­elle Vorga­ben zu erfül­len. Aber es ist ganz einfach, sich eigene hier­ar­chi­sche Glie­de­rungs­for­mate anzufertigen.

  1. Öffnen Sie in Start | Absatz die Auswahl Numme­rie­rung und suchen Sie ggf. eine in etwa passende Glie­de­rung aus der Numme­rie­rungs­bi­blio­thek aus.
  2. Öffnen Sie den Dialog Neues Zahlen­for­mat defi­nie­ren.
Die Schritte zum Umwandeln

Sodann klap­pen Sie die Liste Zahlen­for­mat­vor­lage (4) auf und wählen daraus die gewünschte Zählweise.

Wich­tig: Die Zahlen­for­mate enthal­ten noch keine Trenn­zei­chen wie Punkt, Klam­mer, Binde- oder Schräg­strich. Die tragen Sie im Feld Forma­tie­rung für Zahl einge­ben (5) manu­ell ein.

Vorsicht: Über­schrei­ben Sie nicht das grau gekenn­zeich­nete Feld!

Gegliederte Nummerierung selbst definieren

Die Stan­dard-Glie­de­run­gen reichen oft nicht aus, um spezi­elle Vorga­ben zu erfül­len. Aber es ist ganz einfach, sich eigene hier­ar­chi­sche Glie­de­rungs­for­mate anzufertigen.

1. Öffnen Sie in Start | Absatz die Auswahl Liste mit mehre­ren Ebenen und suchen Sie ggf. eine in etwa passende Glie­de­rung aus der Listen­bi­blio­thek aus.
2. Öffnen Sie den Dialog Neue Liste mit mehre­ren Ebenen defi­nie­ren.

Da der Stan­dard-Funk­ti­ons­um­fang des Dialogs für den gewünsch­ten Zweck nicht ausreicht, komplet­tie­ren Sie ihn mit einem Klick auf die Schalt­flä­che Erwei­tern.

Die Schritte zum Umwandeln

Damit haben Sie alle Werk­zeuge für eine eigene Glie­de­rung im Zugriff (Bild oben). Für jede Glie­de­rungs­ebene können Sie nun ein eige­nes, von der jeweils über­ge­ord­ne­ten Ebene abhän­gi­ges Numme­rie­rungs­for­mat definieren.

Zuerst ist anzu­ge­ben, welche Glie­de­rungs­ebene bear­bei­tet werden soll (3). Neben der Liste der Glie­de­rungs­ebe­nen sehen Sie eine Muster­dar­stel­lung der aktu­el­len Glie­de­rung, die an jede Verän­de­rung in diesem Dialog ange­passt wird.

Sodann klap­pen Sie die Liste Zahlen­for­mat­vor­lage (4) auf und wählen daraus die gewünschte Zählweise.

Wich­tig: Die Zahlen­for­mate enthal­ten noch keine Trenn­zei­chen wie Punkt, Klam­mer, Binde- oder Schräg­strich. Die tragen Sie im Feld Forma­tie­rung für Zahl einge­ben (5) manu­ell ein.

Vorsicht: Über­schrei­ben Sie nicht das grau gekenn­zeich­nete Feld!

Nun muss noch diese Numme­rie­rung der passen­den Über­schrift-Format­vor­lage zuge­ord­net werden, die Sie aus der Liste Verbin­den mit Format­vor­lage wählen (6).

Stan­dard­mä­ßig ist das Häkchen bei Liste neu begin­nen nach gesetzt und die über­ge­ord­nete Ebene, die beim Hoch­zäh­len einen Neustart der Zählung veran­lasst, ist einge­tra­gen. Deshalb müssen Sie hier in der Regel nichts veranlassen.

Diese vier Schritte wieder­ho­len Sie für jede Ebene und bestä­ti­gen dann mit einem Klick auf Ok Ihre neue Gliederungsdefinition.

Nummerierungswert ändern

Ist eine Numme­rie­rung einmal begon­nen, zählt Word munter weiter, sobald Sie erneut einem Absatz eine Numme­rie­rung zuwei­sen. Um eine neue numme­rierte Liste zu begin­nen, reicht es, das neben der Numme­rie­rung aufleuch­tende Smart­tag anzu­kli­cken und darin Numme­rie­rung neu begin­nen zu wählen. Für das nach­träg­li­che Umstel­len auf einen Neube­ginn klicken Sie mit der rech­ten Maus­taste die Nummer an und wählen im Kontext­menü Neu begin­nen mit 1.
Soll der Start­wert für eine Numme­rie­rung frei gewählt werden, erle­di­gen Sie das im Kontext­menü nach Rechts­klick auf die Nummer: Numme­rie­rungs­wert fest­le­gen und stel­len unter Wert fest­le­gen auf den gewünsch­ten Start­wert ein.

Vorsicht: Für den Fall, dass eine Nummer in einer Liste über­sprun­gen werden soll, bietet Word dies im selben Dialog als Zusatz­funk­tion an, die aber etwas unor­tho­dox arbei­tet: Word fügt die fehlen­den Nummern als ausge­blen­de­ten Text mit einem ansons­ten leeren Absatz ein. Sobald Sie die Steu­er­zei­chen­an­zeige ¶ akti­vie­ren, werden sie sicht­bar und auch mitge­druckt, sofern Sie die Option Ausge­blen­de­ten Text drucken in den Word-Optio­nen | Anzeige | Drucken akti­viert haben. Saube­rer arbei­tet da die Option Neue Liste begin­nen, die aller­dings bei nach­träg­li­chen Einfü­gun­gen von Hand verwal­tet werden muss.

Nummerieren mit Buchstaben

Auch wenn es keine Numme­rie­rung im eigent­li­chen Sinne ist, werden – vor allem in den Geis­tes­wis­sen­schaf­ten – oft und gern Zähl­wei­sen der einzel­nen Glie­de­rungs­ebe­nen aus Zahlen und Buch­sta­ben unter­schied­li­cher Gestal­tung gemischt. Word unter­stützt dieses Prin­zip für mehrere Vari­an­ten, die Sie in den Zahlen­for­ma­ten finden.

Die freie Bestim­mung des Start­wer­tes klappt auch bei der Numme­rie­rung mit Buch­sta­ben. Sobald Sie ein ande­res als ein nume­ri­sches Zahlen­for­mat einge­stellt haben, wech­selt auch die Nummern­an­zeige im Feld Begin­nen mit bzw. Wert fest­le­gen auf in dieses Format.

aa), bb), cc) …

Die beson­ders bei Juris­ten beliebte, aber nicht in den Zahlen­for­ma­ten enthal­tene Zähl­weise mit Doppel­buch­sta­ben ist auf dem Umweg über die Start­wert-Vorgabe möglich:

  1. Bestim­men Sie ein Zahlen­for­mat mit Kleinbuchstaben.
  2. Tragen Sie im Feld Wert fest­le­gen auf »aa« ein.
  3. Die Zählung beginnt nun zwar mit 27, was aber bei dieser Darstel­lung nicht auffällt.

Nummerieren mit griechischen Buchstaben

Um eine Aufzäh­lung korrekt mit grie­chi­schen Buch­sta­ben zu »numme­rie­ren«, hilft der Stan­dard­font »Symbol« nicht weiter, denn er enthält zwar das grie­chi­sche Alpha­bet in groß und klein, aber falsch sortiert. Das kennen wir ja alle noch aus der Schule oder aus Huxleys »Brave New World«: alpha beta gamma delta epsilon …

Nicht nur Micro­softs Font­ge­stal­ter schei­nen das grie­chi­sche Alpha­bet nicht zu beherr­schen, in allen frei zugäng­li­chen Fonts mit grie­chi­schem Alpha­bet geht es so zu: alpha beta chi delta epsi­lon … Im Folgen­den geht es dann noch weiter durch­ein­an­der. Die Reihung orien­tiert sich an der Tran­skrip­tion ins Lateinische.

Zum Numme­rie­ren ist das also nicht zu gebrau­chen. Deshalb habe ich beschlos­sen, selbst Hand anzulegen.

Vergleich der Reihen­fol­gen, oben typi­sche Fonts, unten korrekt

Die obere Abbil­dung zeigt die falsche Sortie­rung im Font »Symbol«, die untere die Schrift »Alpha­Be­taG­amma« mit korrek­ter Reihen­folge. Diesen Font stelle ich als Free­ware zur Verfügung.

Wie anwen­den?

  1. Laden Sie sich die Schrift »Alpha­Be­taG­amma« herun­ter, indem Sie rechts auf das Icon klicken.
  2. Instal­lie­ren Sie die Datei »AlphaBetaGamma.ttf« per Rechts­klick | Instal­lie­ren.
  3. Stel­len Sie im Dialog Neues Zahlen­for­mat defi­nie­ren oder Neue Liste mit mehre­ren Ebenen defi­nie­ren zunächst für die gewünschte Ebene ein Buch­sta­ben­for­mat ein.
  4. Sodann wählen Sie mit Schrift­art »Alpha­Be­taG­amma«.

Einschrän­kun­gen: Die Schrift »Alpha­Be­taG­amma« enthält nur die Zeichen, die zum »Numme­rie­ren« mit grie­chi­schen Buch­sta­ben unbe­dingt erfor­der­lich sind, nicht mehr. Nach dem Omega finden Sie noch ein paar alter­na­tive Klein­buch­sta­ben, falls Sie die Schrift auch ander­wei­tig einset­zen möchten.

Sätze in juristischen Texten nummerieren

Um in juris­ti­schen Texten die Orien­tie­rung zu erleich­tern, wird beim Zitie­ren zusätz­lich zu Para­graph und Absatz auch die Nummer des Satzes inner­halb eines Absat­zes ange­ge­ben. Diese werden meist mühsam in Hand­ar­beit in den Vorschrif­ten­text als hoch­ge­stellte Zahlen eingefügt.

Das Makro »Satz­num­mern« nimmt Ihnen diese Arbeit ab, aller­dings nicht 100 % sicher, denn der Punkt hat ja nicht nur die Funk­tion als Satz­ende. Der Algo­rith­mus kann nicht erken­nen, ob »2.« eine Ordi­nal­zahl inner­halb einer Liste ist (dann folgt keine Satz­num­mer) oder der Schluss eines Satzes auf »siehe § 1 Abs. 2.«. Die alte Text­er­weis­heit »Sicher­heits­hal­ber noch mal drüber­le­sen!« ist auch hier von Bedeutung.

Public Auswahl As Integer, SatzNr As Integer

Sub SatzNrNum()
Dim PosAlt, SatzNr As Long, SatzNeu As Boolean, Prueftext As Range
Selection.HomeKey Unit:=wdStory
With Selection.Find
   .ClearFormatting
   .Replacement.ClearFormatting
   .Text = "^w^p"
   .Replacement.Text = "^p"
   .Forward = True
   .Wrap = wdFindContinue
   .Format = False
   .MatchWildcards = False
   .MatchCase = False
   .MatchWholeWord = False
   .MatchSoundsLike = False
   .MatchAllWordForms = False
   .Execute Replace:=wdReplaceAll 'entfernt Leerzeichen vor Absatzendemarken
End With
SatzNr = 1
Set Prueftext = ActiveDocument.Range(Start:=0, End:=0)
With Selection
   .Find.ClearFormatting
   .Find.MatchWholeWord = False
   .Find.MatchWildcards = True
   .Find.MatchCase = False
   Do
      .Find.Execute FindText:=".[ ^13^11]" 'sucht nacht Punkt, gefolgt von Leerz, Absatzmarke oder Zeilenumbruch
        If .Find.Found = False Or Selection.End = ActiveDocument.Range.End Then Exit Do
        SatzNeu = True
        Prueftext.SetRange Start:=PosAlt, End:=.End + 1
        PosAlt = .End - 1
        If InStr(1, Prueftext, Chr(13) & "§", vbTextCompare) _
        Or InStr(1, Prueftext, Chr(13) & "(", vbTextCompare) Then SatzNr = 1
        Prueftext.SetRange Start:=.End - 5, End:=.End + 1
        .Collapse Direction:=wdCollapseEnd
        If InStr(1, Prueftext, "Nr", vbTextCompare) Then
           SatzNeu = False
      ElseIf InStr(1, Prueftext, "Abs", vbTextCompare) Then
         SatzNeu = False
      ElseIf InStr(1, Prueftext, Chr(13) & "(", vbTextCompare) Then
         SatzNeu = False
      ElseIf IsNumeric(Mid(Prueftext, 3, 1)) = True And InStr(1, Prueftext, Chr(13)) Then
         SatzNeu = False
      End If
      If SatzNeu = True Then
         SatzNr = SatzNr + 1
         .Font.Superscript = True
        .TypeText Text:=SatzNr
      End If
   Loop
End With
End Sub

Sub ResetSatznummern() 'entfernt Satznummern im kompletten Dokument
With Selection.Find
   .ClearFormatting
   .Replacement.ClearFormatting
   .Font.Superscript = True
   .Text = ""
   .Replacement.Text = ""
   .Forward = True
   .Wrap = wdFindContinue
   .Format = True
   .Execute Replace:=wdReplaceAll
End With
End Sub