怎么用VBA替换拼音词汇

kxzxw

pbdq 发表于 2014-10-16 09:09
谢谢。你的代码思路很特别。收藏并学习啊。

有空站内信留个地址给我，给您一部佛经啊。

呵呵，是电子版的？还是纸质的？
电子邮箱：154270339@qq.com

pbdq

kxzxw 发表于 2014-10-16 11:23
呵呵，是电子版的？还是纸质的？
电子邮箱：

当然是纸质的啦。

帮我们大忙了，无量功德！

pbdq

banjinjiu 发表于 2014-10-6 17:13
丢了一句End Sub，逐字逐句把汉字加注拼音的域是很费时间的。

有没有比较快速的方式啊？

程序前面的替换都很快。但把拼音转为域的时候慢了一些。

pbdq

kxzxw 发表于 2014-10-5 23:29
这个代码稍加改造，调用内置对话框可通用。

我做成了一个字典的方式。

1. 干(gān)闼(tà)婆(pó)=乾(qián)闼(tà)婆(pó)
   
2. 南(nán)无(wú)=南(ná)无(mó)
   
3. 般(bān)若(ruò)=般(bō)若(rě)
   
4. 般(bō)若(ruò)=般(bō)若(rě)
   
5. 舍(shě)利(lì)弗(fú)=舍(shè)利(lì)弗(fú)
   
6. 庄(zhuānɡ)校(xiào)=庄(zhuānɡ)校(jiào)

复制代码

替换的时候非常快。就是后面的把拼音还原成域慢一些。

不知道还原上，有没有更好的方式？

不过即便如此，已经帮大忙了。不然老是重复校对这些词汇，头大。

kxzxw

pbdq 发表于 2014-10-16 22:39
有没有比较快速的方式啊？

程序前面的替换都很快。但把拼音转为域的时候慢了一些。

按Altl+F9，显示域代码后，再查找替换应该更为快捷。
但使用起来有点麻烦。域特征字符“{ }”的通配符分别是：^19,^21，还有一些特殊字符要转换，多余的空格要去掉……等等，要做大量的处理工作……

kxzxw

http://club.excelhome.net/thread-368632-1-1.html
或者楼主学习一下这个帖子，先转换为纯文本的形式，再查找替换，然后再转换回来，应该会快一些。