Hallo liebe Support Gemeinde :-), ich habe mir aus dem Internet ein Makro geholt, der aus einem Serienbrief direkt Word-Dokumente macht und diese dann direkt in einem Ordner ablegt.
Da ich aber keine Word-Dokumente, sondern pdf's benötige, habe ich schon rumgefummelt und die Dateien legen sich jetzt tatsächlich als .pdf Dokumente in meinem im Makro eingegebenen Ordner ab.
Leider erzeugt das Makro auch direkt immer alle Dokumente als Word-Serienbriefdokument, so, dass wenn ich 10 pdf's habe (abgelegt im Ordner) ich diese 10 Dokumente als Word-Datei offen habe und diese alle einzeln schließen muss. Kann mal jemand gucken, wo ich was machen muss, damit das Erstellen des Word-Dokumentes nicht ausgelöst wird. Hier das von mir schon angepasste Makro
Sub Serie()
Dim nName As String, Pfad As String
nName = "ADR1NAME1" 'Mein Serienbrieffeld
Pfad = "P:\Ordner f?r Serienbriefe" 'Mein Speicherort
With ActiveDocument.MailMerge
.DataSource.ActiveRecord = wdLastRecord
anzahl = .DataSource.ActiveRecord
flag = False
For Each x In .DataSource.DataFields
If x.Name = nName Then
flag = True
Exit For
End If
Next
For i = 1 To anzahl
.DataSource.ActiveRecord = i
dsname = Pfad & "\" & _
.DataSource.DataFields(nName).Value & " - " & Date & ".pdf"
.DataSource.FirstRecord = i
.DataSource.LastRecord = i
.Execute
ActiveDocument.Range.Find.Execute findtext:="^b", replacewith:=""
Set fs = CreateObject("Scripting.FileSystemObject")
ActiveDocument.SaveAs FileName:=dsname, AddToRecentFiles:=False, FileFormat:=wdFormatPDF
Next i
.DataSource.FirstRecord = 1
End With
End Sub