VBA Serienbrief in verschiedene Ordner speichern
26.07.2016 11:50:21
Candice_73
das nachfolgende Makro speichert meinen Serienbrief in einen bestimmten Ordner unter der von mir vorgegebenen Bezeichnung. Ich möchte aber gerne die erzeugten Serienbriefe in unterschiedliche Ordner speichern und dafür einen festen Teil des Pfades (C:\Users\Serienbrief\) vorgeben und zwei weitere Teile aus dem aktiven Excel-Datensatz (bspw. "Zelle"A" 'Ordnername_X' und Zelle"B" 'Ordnername_Y') auslesen.
Ist das möglich?
Dank im Voraus, für mögliche Lösungsvorschläge.
Grüße
Candice_73
Public Sub Serienbrief_speichern()
Dim iBrief As Integer, sBrief As String
On Error GoTo Fehler
Application.Visible = False
With ActiveDocument.MailMerge
.DataSource.ActiveRecord = 1
Do
.Destination = wdSendToNewDocument
.SuppressBlankLines = True
With .DataSource
.FirstRecord = .ActiveRecord
.LastRecord = .ActiveRecord
sBrief = "C:\Users\Serienbrief\Ordnername_X\Ordnername_Y\" & .DataFields( _
_
"Nachname").Value & "_" & .DataFields("Vorname").Value & ".pdf"
End With
.Execute Pause:=False
ActiveDocument.SaveAs FileName:=sBrief, FileFormat:=wdFormatPDF
ActiveDocument.Close False
If .DataSource.ActiveRecord