大量のRTFファイルを、Word2002の.doc形式にしたい

質問

「Word97-2000 & 6.0/95-RTF(*.doc）」で保存された大量のファイルを、現在使用中のWord2002で標準の、通常の.docファイルにする方法を探しています。ひとつずつ開いて保存しなおすのは骨が折れるので、よろしくお願いします。

回答No.1

yambejp

change.vbsという名前でファイルを一個つくって
メモ帳で開いて以下を書き込んでください

'ここから
set oWORD=createObject("word.application")
Set oFS = CreateObject("Scripting.FileSystemObject")
with oWORD
.visible=true
For Each argument In WScript.Arguments
sFilePath = oFS.GetParentFolderName(argument)
sDocName =sFilePath +"\"+oFS.GetBaseName(argument)+".doc"
if (ucase(oFS.GetExtensionName(argument))="RTF") then
.Documents.Open(argument)
.ActiveDocument.SaveAs sDocName,0
.ActiveDocument.Close
end if
Next
.quit
end with
msgbox("終了しました")
'ここまで

そのファイルにrtfのファイルをまとめてドラッグ
アンドドロップすれば変更できます。
（最低限のエラー制御しかしてないので完璧な
動作までは保証できないですけど）