Dieses Makro wendet nach dem Export eine Listen-Nummerierung auf die Zeilen in Ihren Tabellen an, sodass nummerierte Ebenen sauber ausgerichtet sind.

Die Nummerierung von Zeilen in einer Tabelle funktioniert grundsätzlich wie die übliche Nummerierung in Lawlift, nämlich über Ebenen. Um diese Ebenen innerhalb der Tabelle zu identifizieren, wird der Ausdruck ”[#]” verwendet. Dabei definiert „[#]“ die 1. Ebene, „[##]“ die 2. Ebene, „[###]“ die 3. Ebene und so weiter. Alle neun von Word bereitgestellten Ebenen können verwendet werden. Welche Nummerierung schließlich eingefügt wird, muss zuvor in einer Listenformatvorlage innerhalb des Briefkopfes festgelegt werden. Der Benennung der Listenformatvorlage kommt dabei eine besondere Bedeutung zu, da der Name im Makro verwendet wird. In unserem Fall wurde die Liste “A. / 1 . / 1.1.” genannt. Sie können der Liste jedoch auch einen anderen Namen geben und den Makro-Code an der entsprechenden Stelle anpassen.

Bei Fragen hierzu wenden Sie sich bitte an unser Support-Team unter support@lawlift.de.

Unten finden Sie einen Beispielcode, der die in der Listenformatvorlage festgelegte Nummerierung auf die Absätze innerhalb einer Tabelle anwendet. Diese Absätze müssen zuvor in der Lawlift-Vorlage mit [#], [##], etc. markiert werden. Sobald das Makro ausgeführt wird, wird an den entsprechenden Stellen die Nummerierung ergänzt. Beachten Sie, dass hier auch die Nummerierung außerhalb der Tabelle mit berücksichtigt wird.

Streng genommen besteht das Code-Beispiel aus zwei verschiedenen Sub-Routinen. Die erste legt fest, dass alle Nummerierungsebenen links ausgerichtet werden. Das gewährleistet eine übersichtliche Darstellung innerhalb der Tabelle, wo es oft nicht viel Platz für Einrückungen gibt. Die zweite Sub-Routine wandelt nun alle Absätze, welche mit den [#]-Befehlen gekennzeichnet sind, in nummerierte Absätze um und orientiert sich dabei an der Nummerierung, die zuvor in der Listenformatvorlage “A. / 1 . / 1.1.” festgelegt wurde.

Hinweis: Führen Sie das Makro manuell aus, nachdem Sie die Datei aus Lawlift exportiert haben. Wenn Sie es automatisch ausführen möchten, benennen Sie das Makro in “AutoOpen” um. Dies bewirkt, dass das Makro beim Öffnen der Word-Datei automatisch ausgeführt wird.

Wenn das Dokument eine große Anzahl von Ausdrücken enthält, kann die Ausführung einige Sekunden dauern.

Sub Level_setting_A_1_11()

Dim X As Integer
Const newNumPos As Long = 0
Const newTextPos As Long = 0

With ActiveDocument.Styles("Liste3").ListTemplate
    For X = 1 To 9
        .ListLevels(X).TextPosition = newTextPos
        .ListLevels(X).NumberPosition = newNumPos
    Next
End With

End Sub

Sub Nummerierung_Numeric_with_Zero_indentation()

Dim Level As Integer
With ActiveDocument.Range.Find
    .Text = "\[#*\]"
    .MatchWildcards = True

Do While .Execute
If .Parent.Information(wdWithInTable) Then
    Level = Len(.Parent.Text) - 2
    .Parent.Style = ActiveDocument.Styles("Liste3")
    .Parent.ListFormat.ListLevelNumber = Level
    
    If Not Level = 1 Then
        .Parent.ListFormat.ListTemplate.ListLevels(Level).TextPosition = 0
        .Parent.ListFormat.ListTemplate.ListLevels(Level).NumberPosition = 0
    End If
    
    .Parent.Delete

End If
Loop

.MatchWildcards = False
End With

End Sub

Makro ausführen: siehe So fügen Sie ein Word-Makro ein und führen es aus.