用正则表达式改变拼音和字母文字的字体，定位不对

weiyingde

小花鹿 发表于 2019-4-9 09:40
用正则也能搞，但是，感觉是自找麻烦，还是89楼的方法简单
Sub 改变字体格式()
Dim s, reg

你用了selection搞定的，对速度有影响吗？

weiyingde

小花鹿 发表于 2019-4-8 21:50
搞不懂用正则怎么处理
Sub 改变字体格式()
Dim s

这个能达到要求。

weiyingde

weiyingde 发表于 2019-4-9 12:41
这个能达到要求。

这个代码没有上楼的代码效率高。

小花鹿

weiyingde 发表于 2019-4-9 12:28
你用了selection搞定的，对速度有影响吗？

调试的时候用的，忘了删除了，删掉就行

weiyingde

小花鹿 发表于 2019-4-9 13:28
调试的时候用的，忘了删除了，删掉就行

这样也是很好的解决方案。谢谢了。Word VBA你也很内行，若有为难，还要你不吝赐教了。