縦書きの本を組版する際、欧文回転や自動縦中横を使う場合、西暦の半角数字だけを全角数字に置き換えたい…という事がたまにあります。Jedit X 用のスクリプトを作ったので、よかったら使って下さい。
「****年」→「＊＊＊＊年」
例：1969年 → １９６９年
tell application “Jedit X”
tell front document
set selected character range to {len:0, loc:1}
repeat while find string “[0-9]{4}年” with grep
to full width cnvFlag “4000003E00000000”
end repeat
end tell
end tell
４行目のrepeat〜で始まる部分から「年」を削除したら、「2011」を「２０１１」と変更するようになります。しかし、金額や数量などが4桁で入力された原稿（例：9800円）も、全角に変更（例：９８００円）するので、必要に応じて修正して下さい。
この記事へのコメントはありません。