現在作成中のマクロで表の開始セルと終了セルを取得する必要がありましたのでサンプルコードを書いてみました。
このマクロでできること
表を選択している場合に、開始セルと終了セルの位置を取得します。
セルを選択した状態でマクロを実行すると、以下のようにダイアログが表示されます。
カーソルが表内にない場合には何も実行されません。
マクロの解説
カーソルが表内にあるかどうかを8行目で判定しています。
選択範囲内のセルの位置は、Informationプロパティで取得できます。
マクロ
Sub 選択セルの開始位置と終了位置を取得() Dim Row_Start As Integer Dim Row_End As Integer Dim Column_Start As Integer Dim Column_End As Integer If Selection.Information(wdWithInTable) = False Then Exit Sub With Selection Row_Start = .Information(wdStartOfRangeRowNumber) Column_Start = .Information(wdStartOfRangeColumnNumber) Row_End = .Information(wdEndOfRangeRowNumber) Column_End = .Information(wdEndOfRangeColumnNumber) End With MsgBox "開始:(" & Row_Start & ", " & Column_Start & ")" & vbCr & _ "終了:(" & Row_End & ", " & Column_End & ")", vbInformation, "選択範囲" End Sub