動作検証バージョン:64bit Windows 10 Pro + 32bit Word(バージョン2006 ビルド13029.20308 Microsoft Store)
「word vba カーソルの移動 行の末尾」
という検索キーワードでアクセスがありました。
Word VBAを使って、行の最後・行末にカーソルを移動するには、どのようなコードを書けばいいのかを探していた方による検索です。
[スポンサードリンク]
行末へカーソルを移動するサンプル
以下のSubプロシージャを実行すると、カーソルが行末に移動します。
Sub 行末にカーソルを移動する()
Selection.EndKey Unit:=wdLine
End Sub
Selection.EndKey Unit:=wdLine
End Sub
Selectionオブジェクトに用意されているたくさんのメソッドから、EndKeyメソッドの引数Unitに、
WdUnits列挙型に定義されている定数wdLine(実際の値は5)を、
指定するだけです。
マクロ記録も試しましょう
上記のコードは、Wordでマクロ記録すると自動的に作られるものです。
そもそもWordでは、[End]キーを押すと行末へカーソルを移動できます。
この記事のキッカケである
「word vba カーソルの移動 行の末尾」
を検索なさった方は、この[End]キーの挙動を知れば、済んでしまうような予感もあります。
「word vba カーソルの移動 行の末尾」
を検索なさった方は、この[End]キーの挙動を知れば、済んでしまうような予感もあります。
Wordでマクロ記録を開始してから、[End]キーを押して行末にカーソルが移動したことを確認後、マクロ記録を終了すると、以下のようなコードが作られます。
Sub Macro1()
'
' Macro1 Macro
'
'
Selection.EndKey Unit:=wdLine
End Sub
引数Extend:=wdExtendで行末まで選択
Selection.EndKeyメソッドの引数はUnitの他に、
Extendも指定できます。
Sub 行末まで選択する()
Selection.EndKey Unit:=wdLine, Extend:=wdExtend
End Sub
Selection.EndKey Unit:=wdLine, Extend:=wdExtend
End Sub
WdMovementType列挙型に定義されている定数wdExtend(実際の値は1)を指定すると、
カーソルのあった位置から行末まで選択できます。
最終更新日時:2020-09-01 11:25
[スポンサードリンク]
Home » ワードマクロ・Word VBAの使い方 » Selection » Word VBAでカーソルを行末に移動する