常规方法和代码是非常耗时的,一页通用A4纸至少有这段文字的4-5倍多,也就是说,完成一页汉字加拼音,至少是100-125秒。那么对于多页甚至多份文档来说,此方法速度可能就不能满足我们的需求了。
可以运用汉字与拼音的映射关系,自己写一个函数,然后对我们要处理的汉字可以立刻找到对应的拼音。然后用Word VBA中的拼音指南方法Range.PhoneticGuide方法进行加拼音。
这种方法不用模拟键盘,每个汉字发送一次,所以运行速度上有非常大的提升。
使用方法,打开运行以下四个宏,进行相应增删操作:
Sub 所选汉字加拼音_函数()
Sub 所选汉字加拼音_正则与函数()
Sub 删拼音留文字_正则()
Sub 删拼音留文字_域()
1