縦書きの社則のような物を引用して横書きのレポートに書き写すのに、数字部分漢字で表記されたまま横書きなのってどうも気になる。そういうことで、その場しのぎで以下の秀丸のマクロを書いた。
------《算用数字化.mac》---------------------------------
top:
setcompatiblemode 0x0F;
begingroupundo;
replaceall "十一" , "11" , regular, nohilight;
replaceall "十二" , "12" , regular, nohilight;
replaceall "一" , "1" , regular, nohilight;
replaceall "二" , "2" , regular, nohilight;
replaceall "三" , "3" , regular, nohilight;
replaceall "四" , "4" , regular, nohilight;
replaceall "五" , "5" , regular, nohilight;
replaceall "六" , "6" , regular, nohilight;
replaceall "七" , "7" , regular, nohilight;
replaceall "八" , "8" , regular, nohilight;
replaceall "九" , "9" , regular, nohilight;
replaceall "十" , "10" , regular, nohilight;
if( ! result ) endmacro;
endgroupundo 1;
goto top
---------------------------------------
13までしか出てこないから安直な仕様になってるが、本来なら、十に続く漢数字があるかどうかを調べさせて
ケースごとに判断させなければ完全な物とは言えない。が、まぁこれで役に立ってるので、よしとしよう。
後日の備忘に。