Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Serienbrief jede Datei einzeln als pdf erstellen.
zurück: personalisierter HYPERLINK im Serienbrief weiter: Word 2010 und das Adressbuch von Outlook 2010 Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Antwort Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
HLuisel
Gast


Verfasst am:
08. Jan 2013, 16:44
Rufname:


Serienbrief jede Datei einzeln als pdf erstellen. - Serienbrief jede Datei einzeln als pdf erstellen.

Nach oben
       Version: Office 2007

Hallo liebe Community, ich habe ein dickes fettes Problem. Ich bin mir auch ganz sicher, dass dieses Problem hier noch nicht beschrieben wurde, denn ich suche schon lange nach einer Lösung. Hintergrund: Ich möchte ca. 2000 Briefe mittels Seriendruck in eine pdf speichern. Ich bin überhaupt gar kein Experte bei VBA, aber ich konnte doch immerhin schon mithilfe anderer Threads eine Lösung finden, wie ich zumindest die Dateien einzeln als Word-Datei (Docx) abspeichern kann. Nun bin ich aber mit meinem Latei am Ende. Kann mir jemand helfen, wie ich diese einzelnen Dateien in pdf bekomme???? Es ist wirklich sehr dringend.... SadSadSadSad

Was ich bisher habe:
Code:

Sub EinzelDatei()

Dim actpath As String, Dateiname As String
Dim fs As Object
Dim LetzterRec As Long

Const path As String = "D:\Test\"

On Error GoTo 0

Application.ScreenUpdating = False
Application.Visible = False

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
            .Destination = wdSendToNewDocument
            .SuppressBlankLines = True
                       
           With .DataSource
               
                actpath = path & "\"          'Der aktuelle Pfad wird zusammengesetzt
               
                Set fs = CreateObject("Scripting.FileSystemObject")
                If fs.folderexists(actpath) = False Then MkDir (actpath) 'Wenn der Pfad noch nicht existiert wird er jetzt erstellt
               
               
                .FirstRecord = .ActiveRecord
                .LastRecord = .ActiveRecord
               
            Dateiname = actpath & _
                .DataFields("No").Value & "-" & _
                .DataFields("Surname").Value & "," & _
                .DataFields("First_Name").Value & ".docx"                  'Dateiname = Name, Vorname.doc
            End With
            .Execute Pause:=False
           
            ActiveDocument.SaveAs FileName:=Dateiname                   'Speichern unter Dateiname
            ActiveDocument.Close False
        End If
       
    If .DataSource.ActiveRecord < LetzterRec Then
         .DataSource.ActiveRecord = wdNextRecord
      Else
         Exit Do
      End If
   Loop
   

End With


MsgBox ("Erledigt")
Application.Visible = True
Application.ScreenUpdating = True

End Sub
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Word Serienbriefe: Serienbrief mit Daten aus Excel (nur 254 Zeichen pro Feld?) 5 airman 2968 03. Jan 2014, 14:35
theoS Serienbrief mit Daten aus Excel (nur 254 Zeichen pro Feld?)
Keine neuen Beiträge Word Serienbriefe: Prozentzahlen bzw. Leerfelder aus Access in Serienbrief 2 bärbel 7809 11. Jan 2007, 13:32
rr Prozentzahlen bzw. Leerfelder aus Access in Serienbrief
Keine neuen Beiträge Word Serienbriefe: Serienfaxe erstellen mit Klicktel, WinWord und WINFAX 2 DJ-Andy 3951 28. Nov 2006, 01:49
Gast Serienfaxe erstellen mit Klicktel, WinWord und WINFAX
Keine neuen Beiträge Word Serienbriefe: Serienbrief mit Daten aus Access Abfrage,geht nicht???????? 4 Figo 6399 17. Jul 2006, 15:33
Frankie Serienbrief  mit Daten aus Access Abfrage,geht nicht????????
Keine neuen Beiträge Word Serienbriefe: Serienbrief mit Excel-Daten 1 Anonymousssssss 3494 08. März 2005, 15:26
ICH Serienbrief mit Excel-Daten
Keine neuen Beiträge Word Serienbriefe: im Serienbrief nur Teile eines Feldes anzeigen (Teilstring) 1 Gast2309 4280 24. Feb 2005, 16:44
zuschauer im Serienbrief nur Teile eines Feldes anzeigen (Teilstring)
Keine neuen Beiträge Word Serienbriefe: Serienbrief: Drucken dauert extrem lange 1 musikus69 2944 01. Feb 2005, 18:54
McSunny Serienbrief: Drucken dauert extrem lange
Keine neuen Beiträge Word Serienbriefe: Wordtabelle mit Seriendruckfuktionen erstellen 1 acki-bm 999 20. Jan 2005, 15:38
Burks Wordtabelle mit Seriendruckfuktionen erstellen
Keine neuen Beiträge Word Serienbriefe: Serienbrief Numerierung überspringt Zahlen bei neuer Seite 0 blauvogel 1228 17. Nov 2004, 17:53
blauvogel Serienbrief Numerierung überspringt Zahlen bei neuer Seite
Keine neuen Beiträge Word Serienbriefe: Serienbrief in Formular 3 HanSolo 3356 04. Okt 2004, 20:52
Amethyst Serienbrief in Formular
Keine neuen Beiträge Word Serienbriefe: Serienbrief 1 gast 1150 02. Okt 2004, 17:27
Amethyst Serienbrief
Keine neuen Beiträge Word Serienbriefe: Serienbrief mit mehreren Datensätzen / Logik 1 gast 1933 07. Aug 2004, 18:14
@b Serienbrief mit mehreren Datensätzen / Logik
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Microsoft Project