雑感他 > 作業に関するメモ

全章
開閉

文字置換のマクロ

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

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

閉じる

作業要領

作成中

閉じる

inserted by FC2 system