Seriendruck in Word mit eigener Datei

Sub Test()
 '  
 ' Serienbrief in einzelnen Word Dokumenten speichern  
 '  
 Dim Dateiname As String
 Dim LetzterRec As Long
     
 Application.ScreenUpdating = False
 Application.Visible = False

 Const path As String = "C:\OrdnerZumSpeichern\"          'Pfad anpassen  
 ActiveDocument.MailMerge.DataSource.ActiveRecord = wdLastRecord
 LetzterRec = Word.ActiveDocument.MailMerge.DataSource.ActiveRecord
 ActiveDocument.MailMerge.DataSource.ActiveRecord = wdFirstRecord


     With ActiveDocument.MailMerge
         .DataSource.ActiveRecord = wdFirstRecord
         Do
             If .DataSource.ActiveRecord > 0 Then
                If .DataSource.DataFields("Nachname").Value <> "0" Then  
                     .Destination = wdSendToNewDocument
                    .SuppressBlankLines = True

                     With .DataSource
                         .FirstRecord = .ActiveRecord
                         .LastRecord = .ActiveRecord
                
                         Dateiname = path & .DataFields("Nachname").Value & ".pdf"  
                
                     End With
                        .Execute Pause:=False
                 
                         ActiveDocument.ExportAsFixedFormat _
     OutputFileName:=Dateiname & ".pdf", _  
     ExportFormat:=wdExportFormatPDF          'Speichern unter Dateiname  
                        ActiveDocument.Close False
                 End If

               End If
               
             If .DataSource.ActiveRecord < LetzterRec Then
                 .DataSource.ActiveRecord = wdNextRecord
             Else
                 Exit Do
             End If
         Loop
     End With
     
     Application.Visible = True
     Application.ScreenUpdating = True
 End Sub