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