WordをHTML形式で保存するためのExcelマクロを作成するためには、Excel VBAを使ってWordを操作する必要があります。以下の手順で実装できます:
- Excel VBAのエディタを開きます。(Alt + F11)
- 新しいモジュールを挿入します。(挿入 > モジュール)
- 以下のコードをコピーして貼り付けます。
Sub SaveWordAsHTML()
Dim wdApp As Object
Dim wdDoc As Object
Dim filePath As String
Dim savePath As String
' Wordアプリケーションを起動または取得
On Error Resume Next
Set wdApp = GetObject(, "Word.Application")
If wdApp Is Nothing Then
Set wdApp = CreateObject("Word.Application")
End If
On Error GoTo 0
' 保存したいWordファイルのパスを設定
filePath = "C:\path\to\your\document.docx"
' 保存先のパスを設定
savePath = "C:\path\to\save\document.html"
' Word文書を開く
Set wdDoc = wdApp.Documents.Open(filePath)
' HTML形式で保存
wdDoc.SaveAs2 savePath, 8 ' 8はwdFormatHTML
' 文書を閉じる
wdDoc.Close False
' Wordアプリケーションを終了
wdApp.Quit
' オブジェクトを解放
Set wdDoc = Nothing
Set wdApp = Nothing
MsgBox "保存が完了しました。", vbInformation
End Sub
コードのポイント
-
filePath
に変換したいWordファイルのパスを指定します。 -
savePath
にHTML形式で保存するファイルのパスを指定します。 -
SaveAs2
メソッドの第二引数に8を渡すことで、HTML形式で保存します。
このコードを実行すると、指定したWordファイルがHTML形式で保存されます。パスを必要に応じて変更してください。