Dori Lynnの顧客は、Wordを使用して単純なフォームを作成します。彼らが頻繁に行うことの1つは、フォーム内を簡単に移動できるようにテーブルを使用することです。

Dori Lynnは、あるテーブルの最後のセル（フィールド）から次のテーブルの最初のセルにタブで移動する方法があるかどうか疑問に思います。現在、彼女がテーブルの最後をタブで移動すると、新しい行が作成されます。

挿入ポイントがテーブルセル内にあるときにTabキーを押すと、通常、選択範囲はテーブル内の次のセルに移動します。テーブルの最後のセルで、Tabキーを押すと、セルの新しい行がテーブルの下部に追加され、挿入ポイントが新しい行の最初のセルに移動します。それは明らかに、DoriLynnが探している行動ではありません。

この問題に使用できるアプローチがいくつかあります。 1つは、オブジェクトブラウザを使用して1つのテーブルから次のテーブルに移動できることを覚えておいてください。もちろん、これは、Tabキーを使用してテーブル間を移動することはできないことを意味しますが、オブジェクトブラウザボタンをクリックすることはできます（画面の右下隅、ダブルアップの間の小さな「ボール」をクリックします。下矢印をクリックし、オプションから[テーブルで参照]を選択して、それらのテーブルを検索します。

実際にTabキーを使用する場合は、マクロを作成する必要があります。挿入ポイントがテーブル内にあるときにTabキーを押すと、Wordはnextcellというコマンドを実行し、次にMoveRightコマンドを実行します。 WordにDoriLynnが望​​むことを強制するカスタムnextcellコマンドを書くことが可能です。

link既存のWordコマンドを変更する方法は他の_WordTips_でカバーされています。以下のカスタムnextcellルーチンは、現在のセルがテーブルの最後のセルでない限り、Tabキーをトラップし、選択を次のセルに移動します。そうである場合は、ドキュメント内の次のテーブルに移動します。ドキュメントにそれ以上のテーブルがない場合、挿入ポイントはその最後のテーブルの最後のセルに残ります。

Sub nextcell()

Dim oCell As Cell

With Selection         Set oCell = .Cells(1).Next         If oCell Is Nothing Then             .Move unit:=wdTable, Count:=1         Else             .MoveRight Unit:=wdCell         End If     End With End Sub

サブルーチンは、垂直方向と水平方向に結合されたセルを持つテーブルで正しく機能します。テーブル内のテーブルを処理しますが、内部テーブルの最後のセルで停止します。

注：

このページ（または_WordTips_サイトの他のページ）で説明されているマクロの使用方法を知りたい場合は、役立つ情報を含む特別なページを用意しました。

linkここをクリックして、新しいブラウザタブでその特別なページを開きます。

_WordTips_は、費用効果の高いMicrosoftWordトレーニングのソースです。

（Microsoft Wordは、世界で最も人気のあるワードプロセッシングソフトウェアです。）このヒント（5673）は、Microsoft Word 2007、2010、および2013に適用されます。