「Ctrl＋Shift＋→」の代替用サルネン風単語範囲選択マクロ

範囲選択を、単語の末尾で止まるようにします。
連続して実行すると、次の単語の末尾まで選択範囲を広げます。

「Ctrl＋→」では単語の先頭に移動してほしいけど、「Ctrl＋Shift＋→」では単語の末尾で止まってほしかったので作ったマクロです。
このマクロのショートカットキーを「Ctrl＋Shift＋→」に設定することで、範囲選択を単語の末尾までにします。

全角文字の場合は標準動作と変わりません。
ただし、複数選択には非対応です。

秀丸エディタの機能を調べていてサルネンとは何かと思いましたが、単語の末尾にカーソルを移動する機能を提案した人の名前だそうです。
というわけで、このマクロの名前もそれにならいました。

#x = x; #y = y;
#sel = selecting;
disabledraw;

if (#sel) moveto selopenx, selopeny;
if (rectselecting) beginrect;
else beginsel;
if (#sel) moveto #x, #y;
wordrightsalnen2;
endsel;

enabledraw;
endmacro;