查看: 911|回复: 3
打印 上一主题 下一主题

[工具] 拼音等特殊字符转为26字母的宏(自制)

[复制链接]

该用户从未签到

10

主题

159

回帖

1万

积分

状元

Rank: 9Rank: 9Rank: 9

积分
11413

灌水大神章小蜜蜂章笑傲江湖章

跳转到指定楼层
1
发表于 2018-3-19 22:30:35 | 只看该作者 |只看大图 回帖奖励 |倒序浏览 |阅读模式
除了用汉字搜索以外,对于一些生僻字词,最方便的还是用拼音来搜索。
但是直接输入拼音比输入汉字更难。
Ebwin对拼音搜索支持很好,可以用在辞典端和程序端分别实现拼音的自动替换。
比如输入sheng,可以自检索shéng、shèng等。可惜ebwin对汉字支持差,最近开始转战mdx阵营。

Mdict似乎没有实现拼音搜索的好方法,所以写了一个emeditor的宏,将拼音和一些键盘上没有的文字自动转换为26个字母。
供大家参考。代码如下,附件里是同样内容。
覆盖unicode的0A0-17F,1C0-1DF。
可以将词头和拼音单独提出后使用,再配合@@@LINK来实现。

效果大致如下,对于多音字多的词条查起来还是很麻烦,ebwin上可以实现搜索结果的组合。

可以比较ebwin的效果,可惜ebwin对汉字支持差,无法两全。




document.selection.Replace "¡","i",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "§","ss",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "©","c",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "ª","a",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "®","r",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "¯","-",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "°","。",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "±","+-",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "²","2",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "³","3",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "´","'",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "·",".",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "¹","1",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "º","。",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "¼","1/4",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "½","1/2",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "¾","3/4",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "À","A",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "Á","A",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "Â","A",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "Ã","A",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "Ä","A",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "Å","A",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "Æ","AE",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "Ç","C",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "È","E",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "É","E",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "Ê","E",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "Ë","E",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "Ì","I",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "Í","I",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "Î","I",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "Ï","I",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "Ð","D",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "Ñ","N",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "Ò","O",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "Ó","O",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "Ô","O",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "Õ","O",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "Ö","O",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "Ø","O",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "Ù","U",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "Ú","U",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "Û","U",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "Ü","U",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "Ý","Y",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "à","a",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "á","a",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "â","a",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "ã","a",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "ä","a",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "å","a",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "æ","ae",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "ç","c",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "è","e",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "é","e",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "ê","e",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "ë","e",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "ì","i",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "í","i",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "î","i",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "ï","i",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "ñ","n",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "ò","o",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "ó","o",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "ô","o",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "õ","o",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "ö","o",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "ù","u",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "ú","u",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "û","u",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "ü","v",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "ý","y",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "ÿ","y",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "Ā","A",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "ā","a",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "Ă","A",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "ă","a",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "Ą","A",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "ą","a",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "Ć","C",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "ć","c",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "Ĉ","C",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "ĉ","c",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "Ċ","C",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "ċ","c",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "Č","C",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "č","c",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "Ď","D",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "ď","d",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "Đ","D",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "đ","d",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "Ē","E",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "ē","e",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "Ĕ","E",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "ĕ","e",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "Ė","E",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "ė","e",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "Ę","E",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "ę","e",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "Ě","E",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "ě","e",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "Ĝ","G",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "ĝ","g",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "Ğ","G",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "ğ","g",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "Ġ","G",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "ġ","g",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "Ģ","G",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "ģ","g",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "Ĥ","H",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "ĥ","h",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "Ħ","H",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "ħ","h",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "Ĩ","I",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "ĩ","i",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "Ī","I",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "ī","i",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "Ĭ","I",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "ĭ","i",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "Į","I",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "į","i",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "İ","I",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "ı","i",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "IJ","I",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "ij","i",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "Ĵ","J",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "ĵ","j",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "Ķ","K",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "ķ","k",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "ĸ","k",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "Ĺ","L",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "ĺ","l",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "Ļ","L",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "ļ","l",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "Ľ","L",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "ľ","l",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "Ŀ","L",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "ŀ","l",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "Ł","L",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "ł","l",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "Ń","N",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "ń","n",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "Ņ","N",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "ņ","n",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "Ň","N",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "ň","n",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "ʼn","n",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "Ŋ","N",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "ŋ","n",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "Ō","O",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "ō","o",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "Ŏ","O",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "ŏ","o",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "Ő","O",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "ő","o",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "Œ","OE",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "œ","oe",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "Ŕ","R",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "ŕ","r",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "Ŗ","R",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "ŗ","r",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "Ř","R",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "ř","r",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "Ś","S",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "ś","s",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "Ŝ","S",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "ŝ","s",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "Ş","S",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "ş","s",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "Š","S",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "š","s",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "Ţ","T",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "ţ","t",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "Ť","T",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "ť","t",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "Ŧ","T",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "ŧ","t",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "Ũ","U",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "ũ","u",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "Ū","U",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "ū","u",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "Ŭ","U",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "ŭ","u",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "Ů","U",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "ů","u",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "Ű","U",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "ű","u",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "Ų","U",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "ų","u",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "Ŵ","W",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "ŵ","w",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "Ŷ","Y",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "ŷ","y",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "Ÿ","Y",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "Ź","Z",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "ź","z",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "Ż","Z",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "ż","z",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "Ž","Z",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "ž","z",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "Ǎ","A",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "ǎ","a",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "Ǐ","I",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "ǐ","i",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "Ǒ","O",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "ǒ","o",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "Ǔ","U",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "ǔ","u",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "Ǖ","U",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "ǖ","u",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "Ǘ","V",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "ǘ","v",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "Ǚ","V",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "ǚ","v",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "Ǜ","V",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "ǜ","v",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "Ǟ","a",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "ǟ","a",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "Ǹ","N",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
document.selection.Replace "ǹ","n",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0

pinyinreplace.zip

1.16 KB, 下载次数: 9, 下载积分: 米 -5 粒

评分

1

查看全部评分

本帖被以下淘专辑推荐:

该用户从未签到

0

主题

52

回帖

133

积分

禁止发言

积分
133
2
发表于 2020-2-3 15:09:07 | 只看该作者
Thanks for your great work.

该用户从未签到

0

主题

15

回帖

113

积分

白身

Rank: 1

积分
113
3
发表于 2020-2-8 11:26:31 | 只看该作者
虽然不该挖坟,还是建议在后面加上读音的数字。比如shéng替换为sheng2

该用户从未签到

10

主题

159

回帖

1万

积分

状元

Rank: 9Rank: 9Rank: 9

积分
11413

灌水大神章小蜜蜂章笑傲江湖章

4
 楼主| 发表于 2020-2-8 21:34:56 | 只看该作者
lejcey 发表于 2020-2-8 11:26
虽然不该挖坟,还是建议在后面加上读音的数字。比如shéng替换为sheng2

说起来容易做起来难。自动转换éng的话,只能实现为e2ng,要做到数字标示到韵母最后需要非常多步的判断处理