【VBA】Wordをhtmで保存するマクロ

WordをHTML形式で保存するためのExcelマクロを作成するためには、Excel VBAを使ってWordを操作する必要があります。以下の手順で実装できます：

1. Excel VBAのエディタを開きます。（Alt + F11）
2. 新しいモジュールを挿入します。（挿入 > モジュール）
3. 以下のコードをコピーして貼り付けます。

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形式で保存されます。パスを必要に応じて変更してください。