PowerPoint 2010 のPDF変換機能を利用して、Powerpointを起動せずにPDFに変換するVBSスクリプト

Tips

どこからのパクリだったような気もするが、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

ジャミロ様とNE-YO様 HMVにてお買い上げ。

音楽

久しぶりですなジャミロ様。レーベル変わったなんてしらんかったよ。

ロック・ダスト・ライト・スター

ロック・ダスト・ライト・スター

NE-YO様も相変わらず良いですな。
Libra Scale

Libra Scale

Xperiaを2.1にアップデートしたらXPマシンで認識できなくなった場合の対処方法。

Xperia Tips

Xperia を 2.1にアップデートしたらXPマシンで認識しなくなりドライバのインストールを促されるがうまくインストールされない。デバッグモードにしてもインストールされないという状況。
Windows 7 ではうまくいくのでデバッグモード時のドライバをチェックすると、Sony Ericsson sa0101 ADB Interface Driverをインストールすればよいみたい。
Microsoft Update カタログサイトで、上記のドライバを検索してCabファイルをダウンロードし展開。展開先を指定してもドライバがインストールされないので直接指定して無理やりインストールするとようやく認識されるようになります。ちょっとはまりましたね。。。

Windows 7 で Kindle for PCが起動しない

メモ Windows7

シンボルサーバの場所

Tips

デバッガを設定する

Tips Windows7
  • プロセスがアボートした場合に Windbg をデバッガとして設定する場合、管理者権限でコマンドプロンプトを起動させ windbg -I を呼び出すことでレジストリにデバッガとして登録される。この際、アボートした場合にすぐにデバッガが起動するので、デバッガを起動させるか選択させたい場合は、HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\AeDebug にある Auto の値を0にする。

プロセスのダンプの生成場所

Tips Windows7