Auf Knopfdruck Word/Excel Datei als PDF speichern.

[Carlos_C]

Hallo Forum,

ich würde gerne wissen, ob es über Acces mit VBA möglich ist, eine bestimmte Word oder Excel Datei als PDF Datei zu speichern (nicht als PDF drucken, sondern als PDF speichern, was man manuell mit ,,Datei/Speichern unter/pdf..."

Meine Word/Excel Datei hat einen bestimmten Dateinamen und befindet sich in einem bestimmten Ordner. Die zu erzeugende PDF-Datei soll auch einen bestimmten Namen haben und sich in einem bestimmten Ordner befinden.

Ich freue mich auf Eure Tipps.

[DF6GL]

Hallo,

dazu ist Word-/Excel-Automation angesagt und damit das Erzeugen einer PDF-Datei möglich.

[Carlos_C]

Sorry, Franz! Ich verstehe nicht, was Du meinst. Kann man das mit VBA verwirklichen?

[DF6GL]

Hallo,

naja, Word/Excel-Automation heißt ja, diese Programme mit VBA fernsteuern (bedienen) und somit das betroffene Dokument laden und als PDF exportieren...

[MaggieMay]

Hallo Carlos,

ein paar Stichworte für die Suche (bspw. für Word) wären:
- Word.Application
- Documents.Open
- ActiveDocument.SaveAs

Weitere Tipps:
- öffne eine Access-Datei
- füge einen Verweis auf Word hinzu
- öffne den Objektkatalog
- filtere ihn auf die Word-Bibliothek
- schau dir an was es alles zu bieten hat

[Carlos_C]

Hallo Maggie und Franz,

hier die Lösung, die ich gefunden habe:

Code [Auswählen] Erweitern



Private Sub Befehl0_Click()

Dim wordApp As Word.Application
Dim wordDoc As Word.Document
Dim pdfName As String
Dim curPath As String
curPath = CurrentProject.Path

Set wordApp = CreateObject("Word.Application")
Set wordDoc = wordApp.Documents.Open(curPath & "\V01.docx")

pdfName = curPath & "\V02.pdf"

wordDoc.ExportAsFixedFormat OutputFileName:=pdfName, ExportFormat:= _
wdExportFormatPDF, OpenAfterExport:=False, OptimizeFor:=wdExportOptimizeForPrint, Range:=wdExportAllDocument, _
Item:=wdExportDocumentContent, IncludeDocProps:=True

wordDoc.Close saveChanges:=False


End Sub




Funktioniert eiwandfrei.

Danke Euch für Eure Tipps!