Home » ワードマクロ・Word VBAの使い方 » Selection » Word VBAで1つ下のセルを取得・選択する

Word VBAで1つ下のセルを取得・選択する

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

「word vba cell下」
という検索でアクセスがありました。

何を探していらしたのか判断に迷う検索キーワードですが、1つ下のセルを選択するSubプロシージャを作ってみました。

1つ下のセルを選択するサンプル

アクティブ文書の表内にカーソルを置いて、以下のSubプロシージャを実行してみてください。

Sub 一つ下のセルを選択する()
　With Selection
　　If Not .Information(wdWithInTable) Then Exit Sub

　　Dim r As Long, c As Long
　　With .Cells(1)
　　　r = .RowIndex
　　　c = .ColumnIndex
　　End With

　　.Tables(1).Cell(r + 1, c).Select

　End With
End Sub

Excel VBAならば、Rangeオブジェクトに用意されているOffsetプロパティを使うのですが、Word VBAの表にはそういったプロパティがありませんから、実行時に選択されているセルの行番号と列番号を取得して、それぞれ変数に格納しておいてから、

With Selection
　Dim r As Long, c As Long
　With .Cells(1)
　　r = .RowIndex
　　c = .ColumnIndex

TableオブジェクトのCellメソッドに指定する引数で、行番号を1加算することで、1つ下のセルを取得・選択しています。

With Selection
　.Tables(1).Cell(r + 1, c).Select

Excel VBAの場合、Range.Rowプロパティで行番号を、Range.Columnプロパティ列番号を取得できますが、Word VBAの場合はCell.RowIndexプロパティ・Cell.ColumnIndexプロパティです。

　With .Cells(1)
　　r = .RowIndex
　　c = .ColumnIndex

カーソルが表内にないときに実行時エラーが発生しないように、Selection.Informationプロパティを使って、表内にカーソルがなければSubプロシージャから抜ける処理を最初に入れています。

With Selection
　If Not .Information(wdWithInTable) Then Exit Sub

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

伊藤潔人 2021-07-09

最終更新日時：2022-07-07 14:29

［スポンサードリンク］

Home » ワードマクロ・Word VBAの使い方 » Selection » Word VBAで1つ下のセルを取得・選択する

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

「Selection」の記事一覧