秀丸エディタで文字を読み上げるマクロを書いてみた

Slashdotの記事で知ったのですが、

あなたの Windows PC は男性 ? それとも女性 ?
http://slashdot.jp/articles/11/02/14/0320249.shtml

こんなスクリプトが記載されてました。

CreateObject("SAPI.SpVoice").Speak"I love you"

VBSでテキストを読み上げることが出来るんですね、秀丸エディタでも出来そうなのでマクロを書いてみた。
二番煎じ三番煎じなのは百も承知です・・・

/*選択文字を読み上げる秀丸マクロ。

日本語は無視されました、英数字のみ対応してるようです。
PC上のどこかに設定がありそうなんだが・・・
*/
if(!selecting){
	selectline;
}
$text=gettext2(seltopcolumn,seltoplineno,selendcolumn,selendlineno);
if(strlen($text)){
	#obj=createobject("SAPI.SpVoice");
	callmethod #obj, "Speak", $text;
	releaseobject #obj;
}

ちなみに自分のPCは女性でした。