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