Office: (Office 2019) Leerzeilen entfernen

Hallo in die Runde,

ich habe das Problem bzw. den Wunsch in einem DOC
die Leerzeilen zu entfernen und das per Makro. Allerdings gelingt es nicht
Hintergrund das DOC wird aus einer Dot-Datei erstellt bzw. die DOT wird aufgerufen,
Seriendruckfelder werden gefüllt und dann das Ergebnis in eine DOC kopiert.
Beim kopieren werden nun aber auch die leeren Zeilen kopiert, die als "Platzhalter"
für noch evtl. benötigte Zeilen vorhanden sind. Wie bekomme ich diese mit einem Makro weg?
Ich habe als Beispiel ein DOC hochgeladen

 

Hallo Mann,

ich kann mir nur schwer vorstellen, dass ein Serienbrief derart viele Platzhalter braucht und vermutlich wäre es effektiver, die leeren Absätze gar nicht erst entstehen zu lassen.

Wie dem auch sei:

Deine erhoffte nachträgliche Bereinigung per VBA geht nicht im SeriendruckHauptdokument (das du hochgeladen hast), da die Seriendruckfelder ja noch keinen Inhalt haben, auch wenn es in der Vorschau so aussieht. Du müsstest das folgende Makro jeweils auf den zusammengeführten Seriendruck loslassen.
Weil mir ein solches Dokument nicht vorliegt, ist es ein bisschen Blindflug, aber teste mal.
Voraussetzung ist, dass - wie in deinem Musterdokument - jeder "leere" Absatz mit einem Leerzeichen, gefolgt von einem Tabulatorzeichen beginnt:

Code:

Sub leereAbsaetzeRaus()
Dim anzAbsaetze As Long, i As Long

    With ActiveDocument
        anzAbsaetze = .Paragraphs.Count
            For i = anzAbsaetze To 1 Step -1
                If Left(.Paragraphs(i), 2) = Chr(32) & Chr(9) Then
                    .Paragraphs(i).Range.Delete
                End If
            Next i
    End With
End Sub