PowerPoint 2010 のPDF変換機能を利用して、Powerpointを起動せずにPDFに変換するVBSスクリプト
どこからのパクリだったような気もするが、PowerPoint をバックグラウンドで動かしてPPTファイルをPDFに変換するVBSを前作っていて結構楽なので公開してみる。VBSファイルにPPTファイルをドラッグ&ドロップするだけでOK。複数のファイルをドラッグ&ドロップしても大丈夫。
なお、ppSaveAsPDF=32が肝で wdExportFormatPDF = 17 を追加して、ppt.SaveAs GetFNameFromFStr(ppt.FullName)+".pdf", ppSaveAsPDF の部分を変更すればとすればWordファイルもPDFに変更できる。
Option Explicit Const ppSaveAsBMP = 19 Const ppSaveAsJPG = 17 Const ppSaveAsPNG = 18 Const ppSaveAsOpenXMLPresentation=24 Const ppSaveAsPDF=32 Const ppSaveAsPresentation=1 Dim fname, ppt For Each fname In Wscript.Arguments Set ppt = GetObject(fname) ppt.SaveAs GetFNameFromFStr(ppt.FullName)+".pdf", ppSaveAsPDF ppt.Close Next Wscript.Echo "完了" Function GetFNameFromFStr(sFileName ) Dim sFileStr' As String Dim lFindPoint 'As Long Dim lStrLen' As Long lFindPoint = InStrRev(sFileName, ".") sFileStr = Left(sFileName, lFindPoint - 1) GetFNameFromFStr = sFileStr End Function