VisualBasic Serienbrief Elememente auslesen

Sub Serie2Einzeldoc()
'
' Druckt Serienbrief in einzelne Dokumente aus
'

Application.ScreenUpdating = False
Application.Visible = False

Const path As String = "c:\Temp\"          '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
                .Destination = wdSendToNewDocument
                .SuppressBlankLines = True

                With .DataSource
                    .FirstRecord = .ActiveRecord
                    .LastRecord = .ActiveRecord
                   
                Dateiname = path & ".doc"
                End With
                .Execute Pause:=False
               
                ActiveDocument.SaveAs FileName:=Dateiname           'Speichern unter Dateiname
                ActiveDocument.Close False
               
            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