インラインの画像をGIFに変換してファイルサイズを縮小

Word

Option Explicit

Dim wordApp
Dim filePath
Dim args
Dim numShapes

Dim i

Const wdInLine =0


Set args = WScript.Arguments
filePath = args(0)

Set wordApp = CreateObject("Word.Application")
wordApp.Documents.Open(filePath)

numShapes = wordApp.ActiveDocument.InlineShapes.Count
MsgBox "Number of Inline Images:" & numShapes

For i = 1 To numShapes
wordApp.ActiveDocument.InlineShapes(i).Select
wordApp.Selection.Cut
wordApp.Selection.PasteSpecial ,False, wdInLine, False, 13
Next



wordApp.ActiveDocument.Save
wordApp.Quit
MsgBox "Completed!"

このvbsファイルにWordドキュメントをドラッグアンドドロップ
https://dl.dropbox.com/u/79272436/CompressImage.vbs:CompressImage.vbs