VBScript で WordファイルをまとめてHTMLに変換する

機能

指定したフォルダにあるWordファイルを全てHTMLに変換し、別のフォルダに保存します。
Wordで開いてHTMLとして保存、という処理を繰り返します。

実行環境

Windows 10

コード

Option Explicit
Dim objFso 
Set objFso = CreateObject("Scripting.FileSystemObject")
' Wsh Shell
Dim objWshShell
Set objWshShell = WScript.CreateObject("WScript.Shell")
' Word App
Dim objWdApp
Set objWdApp = WScript.CreateObject("Word.Application")

Dim objWdDoc
Dim strPath
Dim outPath
strPath = "D:\doc\"
outPath = "D:\htm\"

Dim obj
For Each obj In objFso.getfolder(strPath).Files
    Set objWdDoc = objWdApp.Documents.Open(strPath & "\" & obj.Name)
    ' https://www.relief.jp/docs/word-vba-enum-wdsaveformat.html
    ' 8 wdFormatHTML 標準 HTML 形式
    ' WScript.Echo "SAVE AS " & outPath & objFso.getbasename(obj.Path) & ".htm"
    objWdDoc.SaveAs2 outPath & objFso.getbasename(obj.Path) & ".htm" , 8
    objWdDoc.Close
    Set objWdDoc = Nothing
Next
    objWdApp.Quit
Set objFso = Nothing
WScript.Echo "Finished"