Office: (Office 2013) Serienbriefe in einzelne PDF-Datei exportieren

lazzo · 25. August 2014

Hallo liebes Forum,

heute brauche ich dringend eure HILFE.

Ich muss am Montag knapp 150 Einladungen verschicken... Eine entsprechende Excelliste habe ich bereits erstellt und in Word mit Textbausteinen integriert.

Wie Ihr aus dem Titel entnehmen könnt, benötige ich für die einzelne Word-Seite eine einzelne PDF-Datei. Im Internet habe ich bisher Addons/Software für Word gefunden, das Problem ist, dass ich keine Programme auf mein Dienstrechner installieren kann (keine Adminrechte)

Meine Frage:
Gibt es eine Möglichkeit das ganze über VBA zu programmieren, falls ja, kann einer das machen oder falls vorhanden mir zuschicken??

Gruß
Lazzo

:)

TomTom2010 · 27. August 2014

Hi,

deine Lösung findest du hier: http://www.ms-office-forum.net/forum...d.php?t=312280

Gruß
TT

Luschi · 27. August 2014

Hallo Lazzo,

Ich habe diese Inet-Seite gefunden, wo ein Makro vorgestellt wird, das genau Deine Wünsche erfüllt. Code:

Word-Serienbrief in einzelne Word- oder PDF-Dateien speichern :: blog.bartlweb
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Das Makro gehört in die Serienbriefdatei in ein normales Modul und man muß nur folgende 2 Stellen anpassen:
sBrief = Path & .DataFields("ID").Value & ".pdf"
und
If .DataSource.DataFields("ID").Value > "" Then

Da Deine ca. 150 Pdf-Dateien in ein Verzeichnis geschrieben werden, muß der Inhalt von diesem Feld eineindeutig sein, sonst streikt das Betriebssytem beim Speichern.
Du kannst aber auch 2 Datenfelder verknüpfen:
sBrief = Path & .DataFields("Name").Value & ", " & .DataFields("Vorname").Value & ".pdf"

Ich habe das Makro mit Wird 2013 getestet und für gut befunden.

Gruß von Luschi
aus klein-Paris

PS: zusätzlich würde ich vor dem Loop noch folgende Sequenz einbauen Code:

If .DataSource.ActiveRecord Mod 5 = 0 Then
DoEvents
End If
Loop
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

um dem Betriebssytem ein bischen Luft zu gönnen! (siehe Vba-Hilfe)

Muecke.1982 · 19. Oktober 2018

Hey,

da man gerade über das Forum nicht Danke sagen kann.

Hier ein Dickes Danke.

Ich habe so, mir sehr viel Arbeit gespart, Danke.

Gruß Mücke

Ps. da manchmal auch Seiten aus dem Netz verschiedene, habe ich hier noch den Gesamten Code mit eingefügt.

Code:

Option Explicit

Sub Serienbrief()
' set variables
Dim iBrief As Integer, sBrief As String
Dim AppShell As Object
Dim BrowseDir As Variant
Dim Path As String
On Error GoTo ErrorHandling ' erfasse irgendwelche Fehler

' Pfad bestimmen
Set AppShell = CreateObject("Shell.Application")
Set BrowseDir = AppShell.BrowseForFolder(0, "Speicherort für Serienbriefe auswählen", 0, 16)

If BrowseDir = "Desktop" Then
Path = CreateObject("WScript.Shell").SpecialFolders("Desktop")
Else
Path = BrowseDir.items().Item().Path
End If

If Path = "" Then GoTo ErrorHandling

Path = Path & "Serienbrief-" & Format(Now, "dd.mm.yyyy-hh.mm.ss") & ""
MkDir Path

On Error GoTo ErrorHandling

' Anwendung ausblenden für bessere Leistung
MsgBox "Serienbriefe werden exportiert. Dieser Vorganag kann einige Minuten dauern - Microsoft Word wird während dieser Zeit ausgeblendet", vbOKOnly + vbInformation
Application.Visible = False

' Erstellen Sie Serienbrief und exportieren Sie als PDF
With ActiveDocument.MailMerge
.DataSource.ActiveRecord = 1
Do
.Destination = wdSendToNewDocument
.SuppressBlankLines = True
With .DataSource
.FirstRecord = .ActiveRecord
.LastRecord = .ActiveRecord
sBrief = Path & .DataFields("Firma").Value & " - " & .DataFields("Ort").Value & ".pdf"
End With
.Execute Pause:=False

If .DataSource.DataFields("Firma").Value & " - " & .DataSource.DataFields("Ort").Value > "" Then
ActiveDocument.SaveAs FileName:=sBrief, FileFormat:=wdFormatPDF
End If
ActiveDocument.Close False

If .DataSource.ActiveRecord < .DataSource.RecordCount Then
.DataSource.ActiveRecord = wdNextRecord
Else
Exit Do
End If

If .DataSource.ActiveRecord Mod 5 = 0 Then
DoEvents
End If

Loop
End With

' error handling
ErrorHandling:
Application.Visible = True

If Err.Number = 76 Then
MsgBox "Der ausgewählte Speicherort ist ungültig", vbOKOnly + vbCritical
ElseIf Err.Number = 5852 Then
MsgBox "Das Dokument ist kein Serienbrief"
ElseIf Err.Number = 4198 Then
MsgBox "Der ausgewählte Speicherort ist ungültig", vbOKOnly + vbCritical
ElseIf Err.Number = 91 Then
MsgBox "Exportieren von Serienbriefen abgebrochen", vbOKOnly + vbExclamation
ElseIf Err.Number > 0 Then
MsgBox "Unbekannter Fehler: " & Err.Number & " - Bitte Makro erneut ausführen.", vbOKOnly + vbCritical
Else
MsgBox "Serienbriefe erfolgreich exportiert", vbOKOnly + vbInformation
End If

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Office: (Office 2013) Serienbriefe in einzelne PDF-Datei exportieren

Serienbriefe in einzelne PDF-Datei exportieren

Serienbriefe in einzelne PDF-Datei exportieren

Serienbriefe in einzelne PDF-Datei exportieren

Serienbriefe in einzelne PDF-Datei exportieren - Similar Threads - Serienbriefe einzelne PDF

VBA Serienbrief in einzelne Ordner speichern

VBA - Serienbriefe in einzelnen Dokumenten speichern

Word, Excel Serienbrief Makro in einzelne Datein

Serienbriefe einzeln speichern

Serienbrief als einzelne Word-Dateien speichern

Per Makro einen Serienbrief in einzelne .pdf-Dateien ausgeben

Serienbrief erstellen und Tabellen einzeln als Anhang einfügen