Public Sub einzelnSpeichern()
Dim PfadMahnung As String
Dim sPfad As String
Dim Datenfeld As String
sPfad = ActiveDocument.Path & "\Mahnungen\"
With ActiveDocument.MailMerge
.DataSource.ActiveRecord = 0
Application.Visible = False
Do
.Destination = wdSendToNewDocument
.SuppressBlankLines = True
With .DataSource
.FirstRecord = .ActiveRecord
.LastRecord = .ActiveRecord
PfadMahnung = sPfad & Format(Date, "YYYY-MM-DD ") & "Mahnung " & .DataFields("Garagenname").Value & ".pdf"
End With
.Execute Pause:=False
ActiveDocument.SaveAs FileName:=PfadMahnung, FileFormat:=wdFormatPDF
ActiveDocument.Close False
If .DataSource.ActiveRecord < .DataSource.RecordCount Then
.DataSource.ActiveRecord = wdNextRecord
Else
Exit Do
End If
Loop
End With
Application.Visible = True
End Sub