Word 2007 Serienbrief, fuer jeden Datensatz eine PDF erstellen?

Ich habe ein kleines Makro, dass es ermöglicht fuer jeden Datensatz ein PDF zu erstellen. Es erstellt im Verzeichnis c:\serienpdf eine PDF-Datei. Der Name des PDF ist aus dem Seriendruckfeld 'name' meiner Exceldatei entnommen. Es wir an den name noch eine laufende Zahl angehängt, um doppelte Dateinamen zu vermeiden. Vorraussetzung:
a. in der Exceldatei gibt es eine Spalte 'name' bzw. das Makro wird entsprechend geändert.

b. Das Verzeichnis c:\serienpdf existiert. Der Pfad kann im Moakro geändert werden.

Public Sub SerienbriefdruckinDateien()
Dim Brief As String
On Error GoTo Fehler
Application.Visible = False
pfad = "C:\ serienpdf\"
i = 1
With ActiveDocument.MailMerge
.DataSource.ActiveRecord = 1
Do
With .DataSource
.FirstRecord = .ActiveRecord
.LastRecord = .ActiveRecord
Brief = pfad & ".DataFields("name").Value & "-" & i & ".pdf"
End With

ActiveDocument.ExportAsFixedFormat OutputFileName:= Brief, _
ExportFormat:=wdExportFormatPDF, OpenAfterExport:=False, OptimizeFor:=_
wdExportOptimizeForPrint,Range:=wdExportAllDocument, From:=1, To:=1, _
Item:=wdExportDocumentContent, IncludeDocProps:=True, KeepIRM:=True, _
CreateBookmarks:=wdExportCreateNoBookmarks, DocStructureTags:=True, _
BitmapMissingFonts:=True, UseISO19005_1:=False

    If .DataSource.ActiveRecord < .DataSource.RecordCount Then
     .DataSource.ActiveRecord = wdNextRecord  

  Else  

     Exit Do  

  End If

i = i + 1
Loop
End With
Fehler:
Application.Visible = True
End Sub