ワードdocをdocxに保存するマクロ

質問

ワードdocのファイルが10個、デスクトップのフォルダにあります。
これを、一括して、docxに保存するには、エクセルのマクロか
ワードのマクロでする方法をお教えください。
エクセルマクロは使用できますが、
ワードマクロは使用したことがありません。
コマンドプロンプトで一括変換できるという方もいますが、
コマンドはしたことがありません。
試しに拡張子だけ、手動で変えましたが、ファイルが壊れました。

回答No.3

quindecillion · ベストアンサー

Wordに限らず旧形式を2010以降の形式に変換をコマンドで行う方法を先ず紹介
http://remix-remix.rash.jp/wordpress/?p=418
こちらに記載があります。

次にvbsで行う方法
https://blogs.yahoo.co.jp/bdfsg610/55401765.html?__ysp=ZG9jIGRvY3gg5LiA5ous5aSJ5o%2Bb
こちらに記載があります。

最後に本題のExcelvbaMacroの場合
https://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q13138612268?__ysp=dmJhIGRvYyDlpInmj5s%3D
を元に
１．directory指定はめんどくさいのでマクロを記述したexcelと変換したいWordが同じフォルダにあればいいように
２．txtからdocxではなくdocからdocxに変換するように
と変更しました。
Sub test()
mypath = ThisWorkbook.Path
fpath = mypath & "\"
Set wd = CreateObject("Word.Application")
wd.Visible = True
fname = Dir(fpath & "*.doc")
Do While (fname <> "")
Set doc = wd.Documents.Open(fpath & fname)
doc.SaveAs2 fpath & Mid(fname, 1, Len(fname) - 3) & "docx", 12
doc.Close
fname = Dir()
Loop
wd.Quit
End Sub
これで同一フォルダ内全て変換できると思います。
当方２ファイルを試したところ変換されていました。

回答No.2

Nouble

やり方ですが
書き忘れましたね。

Wordの、2007以降の
バージョンを、
実行できるように、用意し、

10個全てを
先ずは、選択し、

Wordアイコンに、Dropします。

すると、
ファイルが、全て
開かれます。

其れを、次々と
「ファイル名を指定して保存」から、
保存形式を、変えつつ
保存するだけです。

10個位で、ねを上げてたら
今、居られる所から
トイレに、すら
行けませんよ？

日常的には
10回の、事位
苦もなく、されている筈

歩く、ものを、噛む、息をする。

気の、持ちようを
持ち直されては、如何ですか？

回答No.1

Nouble

10ファイルなら
手で、やった方が
ミス発生を、認知出来て、
おまけに、早いです。