表の最大列数を取得するWordマクロ

対象：Word2007, Word2010, Word2013

「word vba 表最大列数取得」
という検索で、このサイト・インストラクターのネタ帳へのアクセスがあることに気づきました。

複数の表が存在しているときに、それらの表の最大列数を取得する、Word VBA（Visual Basic for Applications）のコードを探している方による検索でしょうか。

表の最大列数を取得するサンプルマクロ

いつものように参考になりそうな、簡単なマクロをご紹介しておきます。

Sub 表の最大列数を取得()

　Dim tbl As Table
　Dim cnt As Long

　cnt = 0
　For Each tbl In ActiveDocument.Tables

　　With tbl.Columns
　　If .Count > cnt Then
　　　cnt = .Count
　　End If
　　End With

　Next tbl

　If cnt = 0 Then
　　MsgBox "表は存在しません。"
　Else
　　MsgBox "最大列数は、" & cnt & " です。"
　End If

End Sub

上記のマクロを実行すると、アクティブな文書の表の最大列数を調べ、
「最大列数は、n です。」
といったメッセージが表示されます。

アクティブ文書上に表が存在しなかったときは
「表は存在しません。」
というメッセージが表示されます。

変数・cntを「0」にしておいてから、
　cnt = 0

全Tableにループを回して、
　For Each tbl In ActiveDocument.Tables

Tableの、すべての列を表すColumnsコレクションオブジェクトの、Countプロパティで列数を調べ、変数・cntより大きかった場合は、
　　With tbl.Columns
　　If .Count > cnt Then

変数・cntの値をColumns.Countプロパティの値に置き換えています。
　　　cnt = .Count

ループ処理が終わったら、変数・cntの値に応じてメッセージボックスを表示しています。

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

伊藤潔人 2021-07-09

最終更新日時：2021-09-03 21:04

［スポンサードリンク］

『インストラクターのネタ帳』では、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ユーザーに向けに書きました↓↓

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