Serienbrief einzeln speichern mit individuellem Dateinamen

[H.Mathias]

Hallo und danke für das Willkommen!

Ich habe eine Word-Datei, die auf eine Excel-Datei als Datenquelle zugreift. In der Excel-Datei sind Daten Name, Adresse, Email hinterlegt. Nun möchte ich einen Seriendruck starten, allerdings jedes Dokument einzeln abspeichern.
Momentan speicher ist die Dateien als Nummern (1..n) ab, würde aber gern einen eindeutigen Bezeichner nutzen.

Delphi-Quellcode:

WordDocument1.MailMerge.DataSource.ActiveRecord := wdLastRecord; 
Amount := WordDocument1.MailMerge.DataSource.ActiveRecord;       
//
for i:= 1 to Amount do begin
newfile:=Inttostr(i)+'.doc';
WordDocument1.MailMerge.DataSource.ActiveRecord := i;
WordDocument1.SaveAs(newFile);

In VBA-Foren habe ich gelesen, dass man die Funktion: "MailMerge.DataFields" nutzen kann, quasi:
newfile:=WordDocument1.MailMerge.DataSource.DataFields('NAME').Value; allerdings funktioniert das nicht:/ Was mache ich falsch?

Gruss Mathias