|
白馬の王子様さん,
ユニコード文字と行っても多くの文字がありますが,とりあえず次のマクロで
はどうでしょうか。必要に応じて文字種の増減はできます。
//------- InsertUnicode.mac ------------------//
menu "ラテン系文字1\t(&1)",
"ラテン系文字2\t(&2)",
"ギリシア文字\t(&3)",
"キリル文字\t(&4)",
"アラビア文字\t(&5)",
"ハングル\t(&6)";
if( result == 0) {
endmacro;
} else if( result == 1) {
#begin = 0x00c0;
#last = 0x017f;
} else if( result == 2 ) {
#begin = 0x01cd;
#last = 0x01ff;
} else if( result == 3 ) {
#begin = 0x0384;
#last = 0x03ce;
} else if( result == 4 ) {
#begin = 0x0401;
#last = 0x04f9;
} else if( result == 5 ) {
#begin = 0x0600;
#last = 0x06ff;
} else if( result == 6 ) {
#begin = 0x1100;
#last= 0x11f9;
}
#num = #last - #begin;
#i = 0;
while( #i < #num ) {
$uni[#i] = unichar(#begin + #i);
#i = #i + 1;
}
menuarray $uni, #num;
#r = result - 1;
question $uni[#r] + "\nカーソル位置に挿入しますか?";
if( result == yes ) insert $uni[#r];
endmacro;
//----------------------------------------------------//
山紫水明
SANSHISUIMEI
|
|