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.
Hallo,
dazu ist Word-/Excel-Automation angesagt und damit das Erzeugen einer PDF-Datei möglich.
Sorry, Franz! Ich verstehe nicht, was Du meinst. Kann man das mit VBA verwirklichen?
Hallo,
naja, Word/Excel-Automation heißt ja, diese Programme mit VBA fernsteuern (bedienen) und somit das betroffene Dokument laden und als PDF exportieren...
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
Hallo Maggie und Franz,
hier die Lösung, die ich gefunden habe:
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!