Excel VBAでWordの表を操作する方法：初心者でもできる実践ガイド

パソコンやスマホの操作が苦手な方でも、ExcelとWordを使って効率的に作業を進められるようになる方法をご紹介します。特に、Excelの表をWordに自動で転記したり、Word内の表をExcelに取り込んだりする方法は、業務の効率化に大いに役立ちます。今回は、VBA（Visual Basic for Applications）を使った具体的な手順を、わかりやすく解説します。

Excelの表をWordに自動で転記する方法
1. Excelの表をWordの表として貼り付ける
2. VBAを使ってExcelからWordに表を転記する
Wordの表をExcelに取り込む方法
1. Wordの表を手動でExcelにコピーする
2. VBAを使ってWordの表をExcelに取り込む
よくある質問
今すぐ解決したい！どうしたらいい？
まとめ

Excelの表をWordに自動で転記する方法

Wordのイメージ

Excelの表をWordの表として貼り付ける

まず、Excelで作成した表をWordに転記する方法から見ていきましょう。

Excelで表を選択し、コピーします。
Wordを開き、貼り付けたい位置にカーソルを合わせます。
「ホーム」タブの「貼り付け」から「形式を選択して貼り付け」を選び、「Microsoft Excel ワークシートオブジェクト」を選択します。

これで、Excelの表がWordに貼り付けられます。表の内容が変更されても、Word内の表も自動で更新されるので、手間が省けます。

VBAを使ってExcelからWordに表を転記する

次に、VBAを使ってExcelからWordに表を転記する方法をご紹介します。

Sub CopyTableToWord()
    Dim objWord As Object
    Dim objDoc As Object
    Dim objTable As Object
    Dim i As Integer, j As Integer

    ' Wordを起動
    Set objWord = CreateObject("Word.Application")
    objWord.Visible = True

    ' 新しい文書を作成
    Set objDoc = objWord.Documents.Add

    ' Excelの表をコピー
    ActiveSheet.Range("C5").Copy

    ' Wordに貼り付け
    objDoc.Content.Paste

    ' 貼り付けた表を取得
    Set objTable = objDoc.Tables(1)

    ' 表の書式を整える（例列幅を自動調整）
    objTable.AutoFitBehavior (2) ' wdAutoFitContent
End Sub

このコードを実行すると、ExcelのからC5までの範囲がWordに貼り付けられ、表の列幅が自動で調整されます。

Wordの表をExcelに取り込む方法

Wordの表を手動でExcelにコピーする

Wordで作成した表をExcelに取り込む最も簡単な方法は、手動でコピー＆ペーストすることです。

Wordで表を選択し、コピーします。
Excelを開き、貼り付けたいセルにカーソルを合わせます。
「ホーム」タブの「貼り付け」から「形式を選択して貼り付け」を選び、「テキスト」を選択します。

これで、Wordの表がExcelに取り込まれます。

VBAを使ってWordの表をExcelに取り込む

VBAを使って、Wordの表をExcelに取り込む方法をご紹介します。

Sub ImportTableFromWord()
    Dim objWord As Object
    Dim objDoc As Object
    Dim objTable As Object
    Dim i As Integer, j As Integer

    ' Wordを起動
    Set objWord = CreateObject("Word.Application")
    objWord.Visible = False

    ' Word文書を開く
    Set objDoc = objWord.Documents.Open("C:\path\to\your\document.docx")

    ' 最初の表を取得
    Set objTable = objDoc.Tables(1)

    ' Excelにデータを転記
    For i = 1 To objTable.Rows.Count
        For j = 1 To objTable.Columns.Count
            ThisWorkbook.Sheets("Sheet1").Cells(i, j).Value = objTable.Cell(i, j).Range.Text
        Next j
    Next i

    ' Word文書を閉じる
    objDoc.Close
    objWord.Quit
End Sub

このコードを実行すると、指定したWord文書の最初の表がExcelのSheet1に転記されます。