Office: Serienbrief

Windows 8.1 / Word 2010

Ich suche den Makrobefehl zur festen Einstellung eines Semikolon als Datenfeld-Seperators
bei Verwendung einer Txt-Datendatei für Serienbriefe.

.................................................................................................................
Für Serienbriefe wird eine TXT-Datei "Adressen.txt" mit folgender Struktur verwendet.

ADRESSE1;ADRESSE2;ADRESSE3;ADRESSE4;ADRESSE5
Herr ;Gerd Freund;Unter Stad 23;77777 Mühlhausen;Sehr geehrter Herr Freund,
Herr ;Thomas Müller;Max-Läuger-Str. 15;79400 Essen;Sehr geehrter Herr Müller,
..................................................................................................................

Nachfolgend wurde mit dem Makrorecorder das folgende Macro aufgezeichnet:

Sub SerienbriefStarten
ActiveDocument.MailMerge.OpenDataSource Name:= _
"C:\Users\Gunther\_REFA_Adressen\WORDVORLAGEN\Adressen.txt", _
ConfirmConversions:=False, ReadOnly:=False, LinkToSource:=True, _
AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:="", _
WritePasswordDocument:="", WritePasswordTemplate:="", Revert:=False, _
Format:=wdOpenFormatAuto, Connection:="", SQLStatement:="", SQLStatement1 _
:=";", SubType:=wdMergeSubTypeOther

'.....................................................................................
'Hier wird stets das Macro angehalten und nach dem Seperator der Datenfelder gefragt.
'Mit welchem Befehl kann man diesen Seperator fest auf Semikolon einstellen ?
'.....................................................................................

ActiveDocument.Fields.Add Range:=Selection.Range, Type:=wdFieldMergeField _
, Text:="""Herr_"""
Selection.TypeParagraph
ActiveDocument.Fields.Add Range:=Selection.Range, Type:=wdFieldMergeField _
, Text:="""Gerd Freund"""
Selection.TypeParagraph
ActiveDocument.Fields.Add Range:=Selection.Range, Type:=wdFieldMergeField _
, Text:="""Unter_Stad_23"""
Selection.TypeParagraph
ActiveDocument.MailMerge.Fields.Add Range:=Selection.Range, Name:= _
"M_77777_Mühlhausen"
Selection.TypeParagraph
ActiveDocument.MailMerge.Fields.Add Range:=Selection.Range, Name:= _
"Sehr_geehrter_Herr_Freund"

End Sub

 

Hallo,

die "OpenDataSource"-Methode des "MailMerge"-Objektes verfügt über keine Argumente bzw. Eigenschaften zur Festlegung der Feld- und Datensatztrennzeichen von "txt"-Dateien. Die Argumente dieser "OpenDataSource"-Methode sind in Deinem Makro alle korrekt angegeben, soweit ich das beurteilen kann, auch das letzte "SubType:=wdMergeSubTypeOther" ist korrekt, durch das man eine Verbindung zum Textkonvertierfilter erzwingen kann (ab Word2002).

Sieht man im folgenden Knowledge-Base-Artikel von Microsoft nach:
http://support.microsoft.com/default.aspx?scid=kb;de;212362
findet man als Ursache Folgendes angeführt:

Wenn ich mir diese Datenstruktur anschaue, so sehe ich, dass Du den ";" als Feldtrennzeichen verwenden möchtest. Aber Du verwendest im Feld "ADRESSE5" zusätzlich das Komma, das von Word sicherlich nicht als Feldinhalt interpretiert wird, sondern als zusätzliches Trennzeichen. Wenn Du versuchst - nur als Test - diese 3 Datenzeilen ohne das abschließende Komma in die Adressdatei zu speichern, dann müsste eigentlich (lt. Microsoft) das Problem beseitigt sein. Das Komma wirst Du ja sicherlich im Word-Hauptdokument platzieren können und nicht als Feldinhalt.

Ansonsten werden im vorgenannten Link auch in (ausnahmsweise gutem!!) Deutsch Alternativen beschrieben.

 

Hallo Anton,

Hab Dank für Deine Antwort. Das mit dem Komma war der entscheidende Tipp!

Herzlichst

Gunther