Word VBAで表のセルから値を取得する方法

Word VBAで表のセルから値を取得する方法｜初心者でもわかる解説

2025.06.052026.01.27

Wordで作成した文書に表があると、データの整理や編集がしやすくなりますよね。そんな表の中から、特定のセルの値を自動で取得したいとき、VBA（Visual Basic for Applications）を使うととても便利です。今回は、初心者の方でもわかりやすいように、Word VBAで表のセルから値を取得する方法を、実際のコード例とともに解説します。

Word VBAで表のセルから値を取得する基本の方法
よくある質問や疑問
まとめ

Word VBAで表のセルから値を取得する基本の方法

Wordのイメージ

まずは、Word VBAを使って、表の特定のセルから値を取得する基本的な方法を紹介します。

表の特定のセルを指定して値を取得する

Word文書内の表は、`Tables`コレクションで管理されています。例えば、文書内の1番目の表の2行目、3列目のセルの値を取得するには、以下のようなコードを使います。

Sub GetCellValue()
    Dim cellValue As String
    cellValue = ActiveDocument.Tables(1).Cell(2, 3).Range.Text
    ' セルの末尾には不要な改行コードが含まれているため、取り除きます
    cellValue = Left(cellValue, Len(cellValue) - 2)
    MsgBox "取得した値: " & cellValue
End Sub

このコードでは、`ActiveDocument.Tables(1)`で1番目の表を指定し、`.Cell(2, 3)`で2行目、3列目のセルを指定しています。`Range.Text`でセル内のテキストを取得し、`Left(cellValue, Len(cellValue) – 2)`で末尾の改行コードを取り除いています。

表のすべてのセルから値を取得する

文書内の表のすべてのセルから値を取得したい場合は、`For Each`ループを使って、各セルを順番に処理します。

Sub GetAllCellValues()
    Dim tbl As Table
    Dim cel As Cell
    Dim cellValue As String
    ' 文書内のすべての表を処理します
    For Each tbl In ActiveDocument.Tables
        ' 各表のすべてのセルを処理します
        For Each cel In tbl.Range.Cells
            cellValue = cel.Range.Text
            ' セルの末尾には不要な改行コードが含まれているため、取り除きます
            cellValue = Left(cellValue, Len(cellValue) - 2)
            Debug.Print cellValue
        Next cel
    Next tbl
End Sub

このコードでは、`For Each tbl In ActiveDocument.Tables`で文書内のすべての表を処理し、`For Each cel In tbl.Range.Cells`で各表のすべてのセルを処理しています。`Debug.Print`で取得した値をイミディエイトウィンドウに出力しています。

表の中の表（ネストされた表）のセルから値を取得する

Wordでは、表の中にさらに表を含むことができます。これを「ネストされた表」と呼びます。ネストされた表のセルから値を取得するには、外側の表と内側の表をそれぞれ処理する必要があります。

Sub GetNestedTableValues()
    Dim outerTbl As Table
    Dim innerTbl As Table
    Dim cel As Cell
    Dim cellValue As String
    ' 文書内のすべての表を処理します
    For Each outerTbl In ActiveDocument.Tables
        ' 外側の表内のすべての内側の表を処理します
        For Each innerTbl In outerTbl.Tables
            ' 内側の表のすべてのセルを処理します
            For Each cel In innerTbl.Range.Cells
                cellValue = cel.Range.Text
                ' セルの末尾には不要な改行コードが含まれているため、取り除きます
                cellValue = Left(cellValue, Len(cellValue) - 2)
                Debug.Print cellValue
            Next cel
        Next innerTbl
    Next outerTbl
End Sub

このコードでは、`For Each outerTbl In ActiveDocument.Tables`で文書内のすべての外側の表を処理し、`For Each innerTbl In outerTbl.Tables`で各外側の表内のすべての内側の表を処理しています。`For Each cel In innerTbl.Range.Cells`で内側の表のすべてのセルを処理し、`Debug.Print`で取得した値をイミディエイトウィンドウに出力しています。