【Word】「.doc」を「.docx」に「互換モード」を無効にして一括変換する方法【Windows】

WEB / アプリ

2022.01.05

WEB / アプリ

docx VBScript Word

この記事は約5分で読めます。

とっちゃん@nyanco! です。

今回はWindowsで「.doc」を「.docx」に「互換モード」を無効にしつつ一括変換する方法のご紹介です。

VBScriptを使いますにゃ〜
ダウンロードしてダブルクリックするだけで使えますにゃ〜
「互換モード」をキープしたままでの変換バージョンも用意してますにゃ〜

参考にさせていただいた記事
スクリプトコード
1. カスタマイズ箇所
  1. SaveAs2 メソッド参考ページ
  2. CompatibilityMode 参考ページ
VBScriptのダウンロードはこちら
使い方
おわりに

参考にさせていただいた記事

まずは先に参考にさせていただいた記事のご紹介。

▼ヤフー知恵袋でズバリなコードが紹介されていました、ありがとうございます！

vbsでdocをdocxに一括変換する方法はありますか？ - プログラムファイルの存在するフォルダ内のすべての「～.doc」ファイルを「～... - Yahoo!知恵袋

vbsでdocをdocxに一括変換する方法はありますか？プログラムファイルの存在するフォルダ内のすべての「～.doc」ファイルを「～.docx」に保存します。注意事項としては、１４行目に「'so.DeleteFilegf&"\"&f.Name,True」とあり、実行しないように頭に「'」が付いています。この「'」を...

こちらのコードのままでも見事に「.docx」形式に一括変更できたのですが、「互換モード」のままでの変換でした。

今回は「.docx」形式に一括変換しつつ「互換モード」を無効にしたかったので、下記ページを参考にして少しカスタマイズさせていただきました。

Attention Required! | Cloudflare

本記事では上記ページのコードをほぼそのまま公開、ダウンロードできるようにしております。

何か不都合などがありましたらすぐに非公開としますので、コメントなどで一報いただけると幸いですにゃ〜

スクリプトコード

早速ですが、カスタマイズしたコードはこちら。

Option Explicit
Dim dc, f, gf, so, wd
Set so = CreateObject("Scripting.FileSystemObject")
Set gf = so.GetFolder(so.GetParentFolderName(WScript.ScriptFullName))
Set wd = CreateObject("Word.Application")
wd.Application.DisplayAlerts = False
wd.Visible = False
For Each f In gf.Files
If LCase(so.GetExtensionName(f.Name)) = "doc" Then
Set dc = wd.Documents.Open(gf & "\" & f.Name)
dc.SaveAs2 gf & "\" & so.GetBaseName(f.Name) & ".docx", 16, , , , , , , , , , , , , , , 65535
dc.Close
Set dc = Nothing
'so.DeleteFile gf & "\" & f.Name, True
End If
Next
wd.Quit
Set wd = Nothing
Set gf = Nothing
Set so = Nothing
MsgBox("Finished!")