古典の書体をつかうにあたり、中央研究院で（おせっかいにも）旧字体で入力されているフォントが、（皮肉なことにも）うまく表示されません。そこで、テキストをコピペしたら、以下の一太郎のマクロを１回まわすことで、だいぶ〔校勘〕の作業がラクになると思います。
ホームページやブログで、なるべく多くのユーザーに表示されやすくするために、旧字体から新字体に改めるときも、このマクロが使えます。

ErrorBreakMode( 1, 1, 0 )
WarningMode(0)
DisplayMode(0)
ReplaceStringAll（"德", "徳",3,0,0)
ReplaceStringAll（"齊", "斉",3,0,0)
ReplaceStringAll（"錢", "銭",3,0,0)
ReplaceStringAll（"營", "営",3,0,0)
ReplaceStringAll（"將", "将",3,0,0)
ReplaceStringAll（"寢", "寝",3,0,0)
ReplaceStringAll（"營", "営",3,0,0)
ReplaceStringAll（"獨", "独",3,0,0)
ReplaceStringAll（"縣", "県",3,0,0)
ReplaceStringAll（"當", "当",3,0,0)
ReplaceStringAll（"觀", "観",3,0,0)
ReplaceStringAll（"聽", "聴",3,0,0)
ReplaceStringAll（"斷", "断",3,0,0)
ReplaceStringAll（"顯", "顕",3,0,0)
ReplaceStringAll（"增", "増",3,0,0)
ReplaceStringAll（"繼", "継",3,0,0)
ReplaceStringAll（"鎭", "鎮",3,0,0)
ReplaceStringAll（"萬", "万",3,0,0)
ReplaceStringAll（"兩", "両",3,0,0)
ReplaceStringAll（"實", "実",3,0,0)
ReplaceStringAll（"萬", "万",3,0,0)
ReplaceStringAll（"勳", "勲",3,0,0)
ReplaceStringAll（"禮", "礼",3,0,0)
ReplaceStringAll（"曆", "暦",3,0,0)
ReplaceStringAll（"舉", "挙",3,0,0)
ReplaceStringAll（"拔", "抜",3,0,0)
ReplaceStringAll（"巖", "巌",3,0,0)
ReplaceStringAll（"圖", "図",3,0,0)
ReplaceStringAll（"險", "険",3,0,0)
ReplaceStringAll（"條", "条",3,0,0)
ReplaceStringAll（"肅", "粛",3,0,0)
ReplaceStringAll（"鄰", "隣",3,0,0)
ReplaceStringAll（"效", "効",3,0,0)
ReplaceStringAll（"靈", "霊",3,0,0)
ReplaceStringAll（"應", "応",3,0,0)
ReplaceStringAll（"繩", "縄",3,0,0)
ReplaceStringAll（"數", "数",3,0,0)
ReplaceStringAll（"寶", "宝",3,0,0)
ReplaceStringAll（"豐", "豊",3,0,0)
ReplaceStringAll（"惠", "恵",3,0,0)
ReplaceStringAll（"眾", "衆",3,0,0)
ReplaceStringAll（"禪", "禅",3,0,0)
ReplaceStringAll（"歸", "帰",3,0,0)
ReplaceStringAll（"醉", "酔",3,0,0)
ReplaceStringAll（"壽", "寿",3,0,0)
ReplaceStringAll（"堯", "尭",3,0,0)
ReplaceStringAll（"藏", "蔵",3,0,0)
ReplaceStringAll（"聲", "声",3,0,0)
ReplaceStringAll（"關", "関",3,0,0)
ReplaceStringAll（"遙", "遥",3,0,0)
ReplaceStringAll（"驅", "躯",3,0,0)
ReplaceStringAll（"あ", "い",3,0,0)
ReplaceStringAll（"あ", "い",3,0,0)
ReplaceStringAll（"あ", "い",3,0,0)
ReplaceStringAll（"あ", "い",3,0,0)
ReplaceStringAll（"あ", "い",3,0,0)
ReplaceStringAll（"あ", "い",3,0,0)
ReplaceStringAll（"あ", "い",3,0,0)
ReplaceStringAll（"あ", "い",3,0,0)
ReplaceStringAll（"あ", "い",3,0,0)
ReplaceStringAll（"あ", "い",3,0,0)
ReplaceStringAll（"あ", "い",3,0,0)
ReplaceStringAll（"あ", "い",3,0,0)
ReplaceStringAll（"あ", "い",3,0,0)
ReplaceStringAll（"あ", "い",3,0,0)
ReplaceStringAll（"あ", "い",3,0,0)
ReplaceStringAll（"あ", "い",3,0,0)
ReplaceStringAll（"あ", "い",3,0,0)
ReplaceStringAll（"あ", "い",3,0,0)
ReplaceStringAll（"あ", "い",3,0,0)
ReplaceStringAll（"あ", "い",3,0,0)
ReplaceStringAll（"あ", "い",3,0,0)

「あ」から「い」に変換するマクロで、以下、同じ要領で置換すべき文字を追加できます。ぼくも随時、更新してここに載せます。140727

閉じる

作成中

閉じる