批量将输入法输入的带圈的数字替换为calibri字体且unicode=true的带圈的数字

15116475571 · 发表于 2020-10-26 21:56

源文档中可能有三四十万个字，其中多出出现用搜狗等输入法输入的带圈的数字，现想用vba或者其他方法快速将这些带圈的数字替换成word中通过插入---符号（插入方式见下图）里所插入的带圈的字符。具体如下图所示，示例文档见附件。
ps：试过用ctrl+h替换，实现不了需求，只能改变带圈的数字的字体，但两种字体看起来还是一样。我通过录制宏插入符号里的带圈的数字发现，符号里的带圈的数字的unicode=true。所以用查找替换的方法行不通是不是和字符编码有关。
带圈数字.png

dostep · 发表于 2020-10-27 12:52

解决问题的代码思路就是查找，然后设置字体名称。试试吧，应该可以你的问题。
答对鲜花。答错包涵。

15116475571 · 发表于 2020-10-27 21:34

dostep 发表于 2020-10-27 12:52
解决问题的代码思路就是查找，然后设置字体名称。试试吧，应该可以你的问题。
答对鲜花。答错包涵。

谢谢你的回复！但是帖子有说，仅改变字体不能达到想要的效果

dostep · 发表于 2020-10-27 22:19

15116475571 发表于 2020-10-27 21:34
谢谢你的回复！但是帖子有说，仅改变字体不能达到想要的效果

你不下载试试怎么知道呢？本机已经测试可以。

15116475571 · 发表于 2020-10-27 23:35

dostep 发表于 2020-10-27 22:19
你不下载试试怎么知道呢？本机已经测试可以。

非常感谢，已解决！刚开始没看到你的文件！再次感谢

		自动登录	找回密码
密码			免费注册

[求助] 批量将输入法输入的带圈的数字替换为calibri字体且unicode=true的带圈的数字

评分