【Word VBA】選択セルの開始位置と終了位置を取得する

2019年2月14日

,

現在作成中のマクロで表の開始セルと終了セルを取得する必要がありましたのでサンプルコードを書いてみました。

このマクロでできること

表を選択している場合に、開始セルと終了セルの位置を取得します。

セルを選択した状態でマクロを実行すると、以下のようにダイアログが表示されます。

カーソルが表内にない場合には何も実行されません。

マクロの解説

カーソルが表内にあるかどうかを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

セミナー報告

【セミナー報告】第４回 MTPE もやもや会アフタートークまとめ

先日の第4回もやもや会の続き記事です。 もやもや会の後で、当日の発表者3名（燃脇さん、山本さんと私新田）がオンラインで話し合う機会を持ちました。いただいたアンケート結果を見ながら意見交換をし、お互いに ...

-コード
-,