Fehler in der Makro, wo und warum?

Sub Test()
' Serienbrief in einzelnen PDF Dokumenten speichern
Dim Dateiname As String
Dim LetzterRec As Long
Application.ScreenUpdating = False
Application.Visible = False
Const path As String = "C:\Users\Ralf.Bredenbeck\Desktop\Projekte\Karlstein\"          '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("VorNachname").Value  "0" Then
.Destination = wdSendToNewDocument
.SuppressBlankLines = True
With .DataSource
.FirstRecord = .ActiveRecord
.LastRecord = .ActiveRecord
Dateiname = path & .DataFields("VorNachname").Value & ".pdf"
End With
.Execute Pause:=False
ActiveDocument.ExportAsFixedFormat\
'Speichern unter Dateiname
ActiveDocument.Close False
End If
End If
If .DataSource.ActiveRecord