|
Folgendes funktioniert bei mir Win10 x64:
O365 64bit Excel
With ActiveSheet
Call .OLEObjects.Add(Filename:="c:\test\test.pdf", Link:=False, DisplayAsIcon:=False, Left:=40, Top:=40, Width:=150, Height:=10)
Call .ExportAsFixedFormat(XlFixedFormatType.xlTypePDF, "c:\Test\test2.pdf")
End With
O365 64bit Word
Dim doc
Set doc = Documents.Open("c:\Test\Test.pdf")
doc.ExportAsFixedFormat "c:\Test\Test2.pdf", wdExportFormatPDF
Die Word-Variante als VBS:
Dim wdApp
Dim doc
With CreateObject("Word.Application")
Set doc = .Documents.Open("c:\Test\Test.pdf")
doc.ExportAsFixedFormat "c:\Test\Test2.pdf", 17 '17=wdExportFormatPDF
.quit
End With
|