{"id":55000384,"date":"2023-08-01T00:00:00","date_gmt":"2023-09-12T17:14:39","guid":{"rendered":"http:\/\/access-im-unternehmen.aix-dev.de\/aiu\/?p=384"},"modified":"-0001-11-30T00:00:00","modified_gmt":"-0001-11-30T00:00:00","slug":"Word_PDF_per_VBA_erzeugen","status":"publish","type":"post","link":"https:\/\/vbentwickler.de\/Word_PDF_per_VBA_erzeugen\/","title":{"rendered":"Word: PDF per VBA erzeugen"},"content":{"rendered":"

Wenn man ein Dokument per VBA zusammengestellt hat, möchte man dieses gegebenenfalls auch noch weiterverarbeiten. Zum Beispiel, indem man es unter einen bestimmten Dateinamen speichert. Eine weitere Anforderung könnte sein, dass man das Dokument direkt als PDF-Dokument sichern möchte. Wie das gelingt, schauen wir uns in diesem Artikel an. Und wir gehen noch einen Schritt weiter und betrachten, wie wir bestimmte Bereiche oder auch jede einzelne Seite in einem PDF-Dokument speichern können.<\/b><\/p>\n

In vielen Fällen sollen Word-Dokumente nicht im Format .docx<\/b> weitergegeben werden. Einer der Gründe ist, dass wir nicht wollen, dass der Empfänger das Dokument bearbeiten oder die Inhalte auf einfache Weise extrahieren kann. Eine gute Lösung ist dann die Erstellung eines PDF-Dokuments. Dieses kann man auf allen Systemen mit entsprechenden Readern anzeigen und auch im Webbrowser erscheinen diese ohne Probleme.<\/p>\n

Während man meist komplette Dokumente in eine PDF-Datei exportieren möchte, kommt es auch vor, dass ein Word-Dokument bereits mehrere Teildokumente enthält, die einzelnen exportiert werden sollen. Und ein weiterer Fall ist, dass wir nur bestimmte Seiten aus einem Dokument extrahieren wollen, andere jedoch nicht.<\/p>\n

Dokument als .dotm speichern<\/h2>\n

Um einem eventuellen Verlust des nachfolgend erstellten VBA-Codes vorzubeugen, haben wir das Dokument direkt als .dotm<\/b>-Dokument gespeichert. Die Prozeduren haben wir in das Modul ThisDocument<\/b> eingefügt.<\/p>\n

Komplettes Dokument als PDF speichern<\/h2>\n

Wir beginnen mit dem einfachsten Fall: Wir wollen alle Seiten des Dokuments in einer PDF-Datei speichern. Diesen Fall haben wir in der Prozedur PDFSpeichern <\/b>aus Listing 1 abgedeckt. Hier deklarieren wir eine Variable des Typs Word.Document<\/b>, um das zu extrahierende Dokument zu referenzieren. Das erledigen wir anschließend über die Eigenschaft ActiveDocument<\/b>, die einen Verweis auf das aktuell angezeigte Dokument liefert.<\/p>\n

Public Sub <\/span>PDFSpeichern()\r\n     Dim <\/span>doc As <\/span>Word.Document\r\n     Dim <\/span>strDateipfad As String<\/span>\r\n     Set<\/span> doc = ActiveDocument\r\n     strDateipfad = doc.Path & \"\\Export.pdf\"\r\n     doc.ExportAsFixedFormat OutputFileName:=strDateipfad, ExportFormat:=wdExportFormatPDF\r\n     Set<\/span> doc = Nothing\r\nEnd Sub<\/span><\/pre>\n
Listing 1: Speichern des kompletten Dokuments<\/span><\/b><\/p>\n
Schließlich wollen wir noch den Namen der zu erstellenden Datei definieren. Die neue Datei soll im gleichen Verzeichnis wie das Original landen. Dieses ermitteln wir mit doc.Path<\/b>. Fügen wir noch \\Export.pdf <\/b>an, erhalten wir den vollständigen Pfad.<\/p>\n
Die eigentliche Arbeit übernimmt die Methode ExportAsFixedFormat <\/b>des Document<\/b>-Objekts. Dieser übergeben wir für den Parameter OutputFileName <\/b>den Pfad aus der Variablen strDateipfad <\/b>und als ExportFormat <\/b>den Wert wdExportFormatPDF<\/b>.<\/p>\n
Das Ausführen der Prozedur sorgt für das Anlegen der Datei im gleichen Verzeichnis wie die Originaldatei.<\/p>\n
PDF unter gleichem Namen speichern<\/h2>\n
Wir können noch ein wenig verfeinern, wenn wir wollen, dass das Dokument unter dem gleichen Namen wie das Original gespeichert wird – nur mit der Dateiendung .pdf <\/b>statt.docx<\/b>.<\/p>\n
Dazu ermitteln wir mit doc.Name <\/b>den Namen des Dokuments und ersetzen mit der Replace<\/b>-Methode die Dateiendung .docx <\/b>durch .pdf<\/b>.<\/p>\n
Damit wir den Code überhaupt ausführen können, verwenden wir eine Word-Datei mit der Dateiendung .docm<\/b>. Also ersetzen wir auch diese Dateiendung noch durch .pdf<\/b> (siehe Listing 2).<\/p>\n
Public Sub <\/span>PDFSpeichernGleicherName()\r\n     Dim <\/span>doc As <\/span>Word.Document\r\n     Dim <\/span>strDateipfad As String<\/span>\r\n     Dim <\/span>strDateiname As String<\/span>\r\n     Set<\/span> doc = ActiveDocument\r\n     strDateiname = Replace<\/span>(doc.Name, \".docx\", \".pdf\")\r\n     strDateiname = Replace<\/span>(strDateiname, \".docm\", \".pdf\")\r\n     strDateipfad = doc.Path & \"\\\" & strDateiname\r\n     doc.ExportAsFixedFormat OutputFileName:=strDateipfad, ExportFormat:=wdExportFormatPDF\r\n     Set<\/span> doc = Nothing\r\nEnd Sub<\/span><\/pre>\n
Listing 2: Speichern des kompletten Dokuments mit dem gleichen Namen und der Endung .pdf<\/span><\/b><\/p>\n
Die ExportAsFixedFormat-Methode<\/h2>\n
Bevor wir weitere Anwendungsfälle wie das Extrahieren einzelner Seiten oder eines bestimmten Bereichs betrachten, wollen wir einen Blick auf die Parameter der Methode ExportAsFixedFormat <\/b>werfen.<\/p>\n
Diese lauten:<\/p>\n