この記事を新しいサイトに転記しました
----------------------------------------
先日のyumihenさんの「『において』のマクロ 」の記事からいい学びがありましたので先日の「【１行マクロ】選択範囲を広げる（１） 」にひきつづき、もう１点紹介します。
【１行マクロ】
Selection.MoveEndWhile Cset:="文字列", Count:=wdForward
【日本語訳】
選択範囲において、条件を満たす間は終了位置を移動させる 条件とは「終了位置の隣の文字列が”文字列”のうちのいずれか１文字である」こと、移動方向は下向き
現在選択されている範囲を拡大する（選択しなおす）ときに使えます。
続きはこちらの記事
をご覧ください。