Excel VBAのWordオブジェクトライブラリ：文書操作を自動化する強力なツール

Sub CreateWordDocument()
    ' Wordライブラリの参照設定が必要
    ' 参照設定: Microsoft Word xx.x Object Library

    Dim wdApp As Word.Application
    Dim wdDoc As Word.Document

    ' Wordアプリケーションのインスタンスを取得
    Set wdApp = New Word.Application

    ' 新しい文書を作成
    Set wdDoc = wdApp.Documents.Add

    ' 文書にテキストを追加
    With wdDoc
        .Content.Text = "これはExcel VBAから作成されたWord文書です。" & vbCrLf
        .Content.Text = .Content.Text & "複数行のテキストを追加します。" & vbCrLf
    End With

    ' 文書を保存（保存先のパスは個々に合った場所に書き換えてください）
    wdDoc.SaveAs2 "C:\path\to\your\document.docx"

    ' Wordを表示（バックグラウンドで動作させたくない場合）
    wdApp.Visible = True

    ' リソースの解放
    Set wdDoc = Nothing
    Set wdApp = Nothing

    MsgBox "新しいWord文書が作成されました。", vbInformation, "完了"
End Sub

Sub CreateWordTable()
    ' Wordライブラリの参照設定が必要
    ' 参照設定: Microsoft Word xx.x Object Library

    Dim wdApp As Word.Application
    Dim wdDoc As Word.Document
    Dim wdTable As Word.Table
    Dim i As Integer

    ' Wordアプリケーションのインスタンスを取得
    Set wdApp = New Word.Application

    ' 新しい文書を作成
    Set wdDoc = wdApp.Documents.Add

    ' テーブルを作成（3行3列）
    Set wdTable = wdDoc.Tables.Add(Range:=wdDoc.Content, NumRows:=3, NumColumns:=3)

    ' テーブルにデータを挿入
    For i = 1 To 3
        wdTable.Cell(i, 1).Range.Text = "データ" & i & "-1"
        wdTable.Cell(i, 2).Range.Text = "データ" & i & "-2"
        wdTable.Cell(i, 3).Range.Text = "データ" & i & "-3"
    Next i

    ' 文書を保存（保存先のパスは個々に合った場所に書き換えてください）
    wdDoc.SaveAs2 "C:\path\to\your\table_document.docx"

    ' Wordを表示（バックグラウンドで動作させたくない場合）
    wdApp.Visible = True

    ' リソースの解放
    Set wdTable = Nothing
    Set wdDoc = Nothing
    Set wdApp = Nothing

    MsgBox "テーブルが作成され、データが挿入されました。", vbInformation, "完了"
End Sub

Sub EditWordDocument()
    ' Wordライブラリの参照設定が必要
    ' 参照設定: Microsoft Word xx.x Object Library

    Dim wdApp As Word.Application
    Dim wdDoc As Word.Document
    Dim wdRange As Word.Range

    ' Wordアプリケーションのインスタンスを取得
    Set wdApp = New Word.Application

    ' 既存の文書を開く（保存先・ファイルはパスとファイルは個々に合った場所に書き換えてください）
    Set wdDoc = wdApp.Documents.Open("C:\path\to\your\document.docx")

    ' 文書の先頭にテキストを追加
    Set wdRange = wdDoc.Range(Start:=0, End:=0)
    wdRange.Text = "これは追加されたテキストです。" & vbCrLf & wdRange.Text

    ' 文書を保存
    wdDoc.Save

    ' Wordを表示（バックグラウンドで動作させたくない場合）
    wdApp.Visible = True

    ' リソースの解放
    Set wdRange = Nothing
    Set wdDoc = Nothing
    Set wdApp = Nothing

    MsgBox "既存の文書が編集されました。", vbInformation, "完了"
End Sub