Thema Datum  Von Nutzer Rating
Antwort
Rot Rückgabewert leeres Mergefeld
 02.08.2022 14:11:57 ultimate23
Solved
02.08.2022 18:46:15 xlKing
NotSolved
03.08.2022 07:42:00 ultimate23
NotSolved

Ansicht des Beitrags:
Von:
ultimate23		 Datum:
02.08.2022 14:11:57		 Views:
1084		 Rating:
     
Antwort:
 Nein
Thema:
Rückgabewert leeres Mergefeld

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

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Rückgabewert leeres Mergefeld
 02.08.2022 14:11:57 ultimate23
Solved
02.08.2022 18:46:15 xlKing
NotSolved
03.08.2022 07:42:00 ultimate23
NotSolved