表の複数行を選択するWordマクロ

対象：Word2007, Word2010, Word2013

「ワードマクロ表の先頭2行を選択」
という検索が、このサイト・インストラクターのネタ帳で行われていました。

表の先頭2行を選択するWordマクロ・Word VBA（Visual Basic for Applications）のコードを探している方による検索です。

「ワードマクロ表の先頭2行を選択」
という検索だけでは、どの表の先頭2行なのかがわかりませんので、参考になりそうなマクロを2つご紹介しておきます。

［スポンサードリンク］

カーソルの置かれている表の先頭2行を選択するサンプルマクロ

ひとつ目は、カーソルの置かれている表の、はじめの2行を選択するサンプルマクロです。

Sub カーソルのある表の先頭2行を選択する()

　On Error GoTo ErrHndl

　With Selection.Tables(1)
　　.Rows(1).Select
　　Selection.End = .Rows(2).Range.End
　End With

　Exit Sub

ErrHndl:
　Err.Clear
End Sub

カーソルの置かれている、1個目の表の、
　With Selection.Tables(1)

1行目を選択して、
　　.Rows(1).Select

選択範囲の末尾を表の2行目の最後に移動しています。
　　Selection.End = .Rows(2).Range.End

表内にカーソルが置かれていないときや、表がそもそも1行しかなかったときなどに実行時エラーが発生しますから、
　On Error GoTo ErrHndl
と、エラー実行時にはラベル・ErrHndlに飛ぶようにしています。

もうひとつ、アクティブなページの、一つ目の表の先頭2行を選択するサンプルマクロをご紹介しておきます。

Sub アクティブページの表の先頭2行を選択する()

　On Error GoTo ErrHndl

　With ActiveDocument.Bookmarks("\Page").Range.Tables(1)
　　.Rows(1).Select
　　Selection.End = .Rows(2).Range.End
　End With

　Exit Sub

ErrHndl:
　Err.Clear
End Sub

先のマクロで、
　With Selection.Tables(1)
となっていた部分が、
　With ActiveDocument.Bookmarks("\Page").Range.Tables(1)
になっているのがコード上の違いです。

［スポンサードリンク］

『インストラクターのネタ帳』では、2003年10月から平日のほぼ毎日、Microsoft Officeの使い方などを紹介し続けています。
図形を操作するExcel VBAの基本を解説したキンドル本を出しました↓↓

Excel VBAユーザーを対象とした、Word VBAの入門書をキンドル本として出しました↓↓

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

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

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

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

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

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

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

日経BP社から出版された、Excel VBAユーザー向けのPython超入門書です↓↓

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

3年前(2021年4月)の
人気記事

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