【Word VBA】選択範囲を広げるWordマクロ（２）

2010年6月15日

,

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

マクロ


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

日本語訳

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

マクロの解説

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

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

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

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

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

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

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

 

↓

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

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

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

-コード
-,