【Word VBA】選択範囲を広げるWordマクロ(2)

先日のyumihenさんの「『において』のマクロ」の記事からいい学びがありましたので先日の「【コード】選択範囲を広げるWordマクロ(1)」にひきつづき、もう1点紹介します。

マクロ


Sub 選択範囲を広げるWordマクロ()
 Selection.MoveEndWhile Cset:="文字列", Count:=wdForward
End Sub

日本語訳

選択範囲において、条件を満たす間は終了位置を移動させる 条件とは「終了位置の隣の文字列が”文字列”のうちのいずれか1文字である」こと、移動方向は下向き

マクロの解説

現在選択されている範囲を拡大する(選択しなおす)ときに使えます。

これは、選択範囲で、選択範囲の直後にCsetに指定された文字列のうち1文字が続く限り、選択範囲を広げるというもの。

Cset Count の考え方は、先日の「【コード】選択範囲を広げるWordマクロ(1)」と同じなので省略します。

何ができるのか?というと、思いつきですがこんな感じ。

段落番号の直後の空欄(たとえば半角スペース)を削除したいときありますね。

それを想定しています。Csetは半角スペース。

Selection.MoveEndWhile Cset:=" ", Count:=wdForward

これ、ちょっとうれしくありませんか?

いろいろと応用できそうです。

yumihenさん、ありがとうございます。

トップへ戻る