word用宏将英文标点转换为中文标点，但不转换小数点

13907933959

413191246se 发表于 2015-11-5 16:12
139：下面的宏不是我编的，是摘自网络：
Sub 替换英文双引号为中文()
    Selection.WholeStory

师傅好！

唉！没有的人，多少总会有些抬不起头，也难怪、问题太多，水平太少，是让人烦！

13907933959

413191246se 发表于 2015-11-5 16:11
139 和 shenghua8（升华）朋友讨论得很热烈！
    139：有现成的宏《英文双引号转换为中文双引号》， ...

师傅好！
这个Sub 黑圈123白圈一二三加顿号()的宏，运行不了，提示运行时错误5623
请师傅看一下。

413191246se

在我这里运行好好的，在你那里我无法看，你自己好好看看吧！

13907933959

413191246se 发表于 2015-11-5 20:21
在我这里运行好好的，在你那里我无法看，你自己好好看看吧！

师傅好！
这个Sub 黑圈123白圈一二三加顿号()的宏，是我没有弄好，现在好了。
师傅、如我要增加：
黑圈：0、4、5、6、7、8、9、10
白圈：四、五、六、七、八、九、十
白圈：11、12、13、14、15、16、17、18、19、20
是不是调整代码中的这些数字代号，如：(10104) (12928)，可这些数字每个都不样，请师傅告知，谢谢！

413191246se

139：昨晚我看了 Word2003 中，插入——符号——MS Gothic 字体中的符号，像你说的黑圈0，这个似乎没有。白圈中的1-20似乎有两种：一个是数字是罗马字体，一个是黑体的。——这些符号都是依托 MS Gothic字体的，没有的就打不出来了。

413191246se

略-------此楼代码，已经在 139 的《手动》帖解决。

13907933959

413191246se 发表于 2015-11-7 14:43
139：下载我的附件，在此附件中测试一下。下载：

师傅好！
啊、是这样，以下载收藏。

413191246se

139：我36楼的代码，我认为很棒！但你只提到下载附件了，并未对代码提出是否运行OK的答复，这个宏已经把黑圈1等这些数目字后面的四种空格（半角/全角/不间断/制表符），即使有若干空格，也都自动删除了。

13907933959

413191246se 发表于 2015-11-8 12:41
139：我36楼的代码，我认为很棒！但你只提到下载附件了，并未对代码提出是否运行OK的答复，这个宏已经把黑 ...

师傅好！
罪过、罪过、今天上午电脑一直进不了论坛，下午又比较忙，您38楼的回复我一直没看到，我昨天以为您36楼的代码是测试字体编号的，我只在您上传的字体编号上运行了，正常后连带字体编号一起收藏了。没注意到它还能把黑圈1等这些数目字后面的四种空格（半角/全角/不间断/制表符）若干空格，也都可以自动删除。另外、请师傅在代码中加一个字体＝宋体的代码。

413191246se

1. 加一个字体＝宋体的代码。

复制代码

我一上午也没进来，后来，很久才进来，昨晚我也是很难进。——你说这句话令人不明白。给谁加宋体？如果你是说给顿号加宋体，我建议不如和前面保持一致，都是 MS Gothic字体，也挺好看的。当然如果你非要加，也好办。