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