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