Hallo Bernd,

hast du dich eigentlich schon mal mit Formatvorlagen beschäftigt? Damit kannst du nämlich all das machen ohne Makros zu verwenden. Du definierst die Formatierung im Vorfeld (order irgendwann danach) und weist sie dann den entsprechenden Absätzen oder Textstellen zu. Alles andere macht Word.

Im folgenden Code wird die erste Nummerierungsvorlage fett gemacht und einer neu erstellten Formatvorlage namens "Hauptnummern" zugewiesen. Dann werden alle Absätze durchgegangen und dort wo es eine Leerzeile gibt, wird die Nummer hinzugefügt und dieser Absatz eng an den nächsten herangerückt sowie gleichzeit weit weg vom vorherigen. Probier mal.

Sub Nummerieren()

    Dim p As Paragraph
    
    'Formatiert die Nummerierungsliste
    With ListGalleries(wdNumberGallery).ListTemplates(1).ListLevels(1)
      .NumberFormat = "%1."
      .NumberPosition = CentimetersToPoints(0)
      .Font.Bold = True
    End With
    
    'Erstellt neue Formatvorlage mit Bezug auf Nummerierungsliste
    With ActiveDocument.Styles.Add("Hauptnummern", wdStyleTypeParagraph)
      .BaseStyle = "Standard"
      .NextParagraphStyle = "Standard"
      .Font.Bold = True
      With .ParagraphFormat
        .LeftIndent = CentimetersToPoints(0.63)
        .FirstLineIndent = CentimetersToPoints(-0.63)
        .SpaceBefore = 25
        .SpaceAfter = 0
      End With
      .LinkToListTemplate ListGalleries(wdNumberGallery).ListTemplates(1), ListLevelNumber:=1
    End With
    
    'weist die Formatvorlage den Leerzeilen zu.
    For Each p In ActiveDocument.Paragraphs
      If Len(p.Range.Text) = 1 Then
        p.Style = "Hauptnummern"
      End If
    Next p

End Sub

Gruß Mr. K.