xlsxやdocxといった新しい形式のOffice文書をスクリプトファイルにドラッグ&ドロップすると、xlsやdocといった旧バージョンのファイル形式に変換して元ファイルと同じフォルダーに出力するVBScriptです。 Option Explicit Dim Fso Dim Args Dim OutputFilePath Dim i Const wdFormatDocument = 0 Const wdDoNotSaveChanges = 0 Const xlNormal = -4143 Const ppSaveAsPresentation = 1 Set Fso = CreateObject("Scripting.FileSystemObject") Set Args = WScript.Arguments If Args.Count < 1 Then MsgBox "旧バージョンのファ
![Office文書を旧バージョンのファイル形式に変換するVBScript | 初心者備忘録](https://cdn-ak-scissors.b.st-hatena.com/image/square/8e3ffb24d3d06fdee0d14546aea1c66ca51e3a48/height=288;version=1;width=512/https%3A%2F%2Fwww.ka-net.org%2Fblog%2Fwp-content%2Fuploads%2Feyecatch-VBScript.png)