Home » ワードマクロ・Word VBAの使い方 » 表・テーブル » Word VBAで表の中の表のデータを取得する

Word VBAで表の中の表のデータを取得する

動作検証バージョン：64bit Windows 10 Pro + 32bit Word（バージョン2007 ビルド13029.20344 Microsoft Store）

「word 表の中の表の値を取得マクロ」
という検索キーワードでアクセスがありました。

表の中の表のデータを取得するサンプルマクロ

以下のSubプロシージャが参考になるでしょうか。

Sub 表の中の表の全文字列を取得する()
　Dim tbl As Table
　For Each tbl In ActiveDocument.Tables(1).Tables

　　Dim cel As Cell
　　For Each cel In tbl.Range.Cells
　　　Dim txt As String
　　　txt = cel.Range.Text
　　　Debug.Print Left(txt, Len(txt) - 2)
　　Next cel

　Next tbl
End Sub

アクティブ文書の、1つ目の表の中に表を作成しておいてから、上記のSubプロシージャを実行してみてください。

表の中の表の全データが、イミディエイトウィンドウに出力されます。

ただし、表の中の表の中に、更に表があるような場合には対応していません。

Word VBAでは、表の中の表を表すTablesコレクションは、TableオブジェクトのTablesプロパティで取得できます。

上記のSubプロシージャでは、アクティブ文書内の1つ目の表の中の表を、外側のFor Each～Next文で順番に取得し、
　　Dim tbl As Table
　　For Each tbl In ActiveDocument.Tables(1).Tables

内側のFor Each～Next文で、表の中の表の各セルを順番に取得しています。
　　　Dim cel As Cell
　　　For Each cel In tbl.Range.Cells

Excel VBAユーザーのためのWord VBA入門（2）: Tableの基本編

伊藤潔人 2021-07-09

最終更新日時：2021-07-16 16:01

［スポンサードリンク］

Home » ワードマクロ・Word VBAの使い方 » 表・テーブル » Word VBAで表の中の表のデータを取得する

『インストラクターのネタ帳』では、2003年10月からMicrosoft Officeの使い方などを紹介し続けています。
日経BP社から出版された、Excel VBAユーザー向けのPython超入門書です↓↓

上記の『Excel VBAユーザーのためのPythonプログラミング』の、元になったキンドル本です↓↓

『インストラクターのネタ帳』を運営する伊藤潔人が、初めて書かせていただいた書籍です↓↓

PowerPoint VBA本は、実はオブジェクトブラウザーの使い方を徹底的に解説した本です↓↓

数式を使った条件付き書式設定が苦手な方に向けたKindle本を書きました↓↓

小数とPythonのdecimalモジュールの基本をキンドル本としてまとめました↓↓

Pythonの文字列フォーマットの基本をキンドル本としてまとめました↓↓

Excel VBAの経験がある方を対象に、Word VBAの基本をキンドル本としてまとめました↓↓

Excel VBAユーザーの方を対象として、Wordの表をVBAで操作する基礎をまとめました↓↓

図形を操作するExcel VBAの基本を解説したキンドル本を出しました↓↓

グラフを操作するExcel VBAの基本を解説したキンドル本です↓↓

Pythonの外部ライブラリOpenPyXL（オープンパイエクセル）の入門書を、Excel VBAユーザーに向けに書きました↓↓

「表・テーブル」の記事一覧