Hallo Zusammen,

ich habe eine hoffentlich simple Frage.

In einem Word-Dokument möchte ich bezwecken, dass alle Seriendruckfelder zu einem "normalen" Text werden. Bisher habe ich dazu folgenden Code:

Dim lMMFields As Long, fField As Field
    
    With ActiveDocument
        lMMFields = .MailMerge.Fields.Count
        If lMMFields > 0 Then
            For Each fField In .Fields
            If ActiveDocument.Fields(1).Result = "" Then
            
                If fField.Type = wdFieldMergeField Then fField.Unlink
            Next
            MsgBox "Es wurden " & lMMFields - .MailMerge.Fields.Count & " von " & lMMFields & _
            " Mailmergefeldern" & vbCrLf & "zu Text umgewandelt.", vbInformation, "MailMerge2Text"
        Else
            MsgBox "Im aktuellen Dokument sind keine Mailmergefelder" & vbCrLf & _
            "zum Umwandeln vorhanden.", vbExclamation, "MailMerge2Text"
        End If
    End With

Nun habe ich aber das Problem dass leere Seriendruckfelder als Leerzeichen bzw. Leerzeile "umgewandelt" werden. Das möchte ich vermeiden da sonst das komplette Dokument verschoben wird.

Hat jemand einen Anhaltspunkt für mich? Geplant war eine Schleife die jedes Serienfeld durchgeht und alle, die einen Wert haben, als Text umfunktioniert. Leider komme ich nur nicht dahinter mit was ich leere Felder angeben kann.

Vielen Dank im Voraus!

MFG

Ultimate