cubePDFを使ってpdfファイルをマージするVBScript

VBScript（.vbs）

＜準備＞

同じフォルダにtemp.pdfを同梱

Dim fso, scriptFolder, parentFolder
Set fso = CreateObject("Scripting.FileSystemObject")
scriptFolder = fso.GetParentFolderName(WScript.ScriptFullName)
parentFolder = fso.GetParentFolderName(scriptFolder)

' クリップボードにコピー
CreateObject("WScript.Shell").Run "cmd /c echo " & parentFolder & " | clip", 0, True

Set objShell = CreateObject("WScript.Shell")
objShell.Run """C:\Program Files\CubePDF Utility2\CubePdfUtility.exe"""

WScript.Sleep 3000 ' Cubepdf Utilityが起動するのを待つ

objShell.SendKeys "^o" ' Ctrl + O キーを送信する
WScript.Sleep 500 ' ダイアログが表示されるのを待つ

objShell.SendKeys scriptFolder & "\temp.pdf" ' ファイルパスを入力する
objShell.SendKeys "{ENTER}" ' Enterキーを送信する
WScript.Sleep 500 ' ファイルを開くのを待つ

objShell.SendKeys "^a" ' Ctrl + A キーを送信する
WScript.Sleep 500

objShell.SendKeys "^i" ' Ctrl + I キーを送信する
WScript.Sleep 500 ' ダイアログが表示されるのを待つ

objShell.SendKeys "^v" ' Ctrl + V キーを送信する
objShell.SendKeys "{ENTER}" ' Enterキーを送信する

objShell.SendKeys "+{tab}" ' shift+tab キーを送信する
objShell.SendKeys "^a" ' Ctrl + A キーを送信する
WScript.Sleep 500
objShell.SendKeys "{ENTER}" ' Enterキーを送信する
WScript.Sleep 500 ' ファイルを追加するのを待つ
objShell.SendKeys "{ENTER}" ' Enterキーを送信する
WScript.Sleep 500 ' ファイルを追加するのを待つ

objShell.SendKeys "{DELETE}" ' Deleteキーを送信する
WScript.Sleep 500 

objShell.SendKeys "^+s" ' 名前を付けて保存
CreateObject("WScript.Shell").Run "cmd /c echo " & scriptFolder & "\merged.pdf" & " | clip", 0, True

objShell.SendKeys "^v" ' Ctrl + V キーを送信する
objShell.SendKeys "{ENTER}" ' Enterキーを送信する
WScript.Sleep 3000 

objShell.SendKeys "%{F4}"

MSGBOX "PDF Merged"