[求助]有关带圈序号的问题

13907933959

Word自带的1至10带圈数字的字体，可随文档内的文字换成任何其它的字体，带圈数字字体还是带圈数字字体，不会变，而这个Endylau的11到100的带圈数字的字体，不能随文档内的文字换成任何其它的字体，如换成其它的字体，则变成了：

!@#$%^&*()_+1234567890-=QWERTYUIOP{}qwertyuiop[]ASDFGHJKL:;|asdfghjkl;~ZXCVBNM<>?zxcvbnm.,/

附件5上有以复制出来的11到100的带圈数字的字体。

413191246se

    139：看样子，你已经用上了《带圈数字》字体，这个字体优点是能随着字号变大变小，比例不变；但缺点是用之前要变换一下字体，如果字体变为其它字体，则符号完全变了模样。
    虽然用绘图的方法也能画个圆放在数字上面，但一旦多了用着就不方便了，所以也不现实。
    用 Word 2003 默认的《带圈字符》命令按钮也可以把两位数字加个圆圈，但又有反映，说不太美观，如果不加大圈号的话，所以对于少量两位数字，用这个命令按钮也很不错。
   ——现在我推荐一种方法：如果确认正文字体，比如假设设置正文字体为三号，保证不再变化，那么用我下面的宏，其实也是录制的，包含《带圈字符》功能，可以在代码里适当微调圆圈/首末两位数字，然后设置为热键 F4（F8/F9/F11等均可），这样如果在常用带圈数字时很方便的，只须选定两位数字如“35”，再按一下热键 F4 就可以生成带圈数字了（因为域代码展开后可以分别设置域中字符字号大小，想怎么调都可以），好处是可以不用变换字体，选取两位数字按热键即可，但原始两位数字不要变换字号大小。

1. Sub 带圈数字()
   
2. '带圈数字：自定义热键_F4/F8/F9/F11等均可，适用于两位数字
   
3.     Dim i As String
   
4.     Selection.Range.ModifyEnclosure Style:=wdEncloseStyleLarge, Symbol:=wdEnclosureCircle, EnclosedText:="57"
   
5.     ActiveWindow.View.ShowFieldCodes = Not ActiveWindow.View.ShowFieldCodes
   
6.     i = Selection.Characters(2).Font.Size
   
7.    
   
8.     Selection.Characters(12).Font.Size = i + 6 '圆圈字号（修改 6 为其它数值可以微调）
   
9.     Selection.Characters(12).Font.Position = -2 '圆圈位置下降
   
10.    
    
11.     Selection.Characters(14).Font.Size = i - 4 '圆圈数字首位（修改 4 为其它数值可以微调）
    
12.     Selection.Characters(15).Font.Size = i - 4 '圆圈数字末位（修改 4 为其它数值可以微调）
    
13. '    Selection.Characters(14).Font.Position = -0.1 '圆圈数字首位位置下降
    
14. '    Selection.Characters(15).Font.Position = -0.1 '圆圈数字末位位置下降
    
15.    
    
16.     ActiveWindow.View.ShowFieldCodes = Not ActiveWindow.View.ShowFieldCodes
    
17. '    Selection.Characters.Last.Delete'删除原始数字末位
    
18. '    Selection.Characters.Last.Delete'删除原始数字首位
    
19. End Sub

复制代码

413191246se

139：我建议不要多用《带圈数字》，尽量少用，一般用 123 或(1)(2)(3)即可。

13907933959

413191246se 发表于 2015-11-14 12:45
139：我建议不要多用《带圈数字》，尽量少用，一般用 123 或(1)(2)(3)即可。

师傅好！
谢谢师傅一直掛念徒弟的事，用带圈字体也是不得以而为之，因 Word 自带默认的标题编号太少不够用（不知道 Word 自带默认的各种标题编号为何不能到100止），而用带圈字体，前两天看到这个11～100的带圈字体，高兴了好一近，后来才发现没有用，因不能随字体变化而放弃了。
师傅、这个宏运行不了，提示运行错误 5941
这句代码 i = Selection.Characters(2).Font.Size 变为黄色。

413191246se

139：使用我这个宏，一是要确保不再改变正文字体了，再应用此宏；二是要选择两个数字，如35，再应用此宏。再试试吧！——其实，139，我认为应当尽量用（1）...（999）这样的编号，无穷，好用。

13907933959

413191246se 发表于 2015-11-15 12:22
139：使用我这个宏，一是要确保不再改变正文字体了，再应用此宏；二是要选择两个数字，如35，再应用此宏。 ...

师傅、我在新建空白文档内，输入35，再把35拉黑后，运行该宏，可还是运行不了，提示运行错误 5941，这句代码 i = Selection.Characters(2).Font.Size 变为黄色。文档内输入的35变成了○35

413191246se

139：在我这里使用得好好的，你先关闭 Word，再打开，在新建文件中试验。

13907933959

413191246se 发表于 2015-11-15 20:34
139：在我这里使用得好好的，你先关闭 Word，再打开，在新建文件中试验。

师傅好！
是我字体没有先设置为宋体，现在可以了，但这个字体、字号还是不能变，一变就会变形。

413191246se

那是当然，我只是把WORD工具栏上的带圈字符按钮录个宏而已，和原来是一样的，都是域的应用，只不过适当调整了一下圆圈和两位数字的大小。
139：你一定需要那么多带圈数字吗？有必要吗？为什么不用（1）（2）（3）这样无穷无尽的数字格式呢？
我觉得，应该尽量适应软件，不要人为地增加烦恼（说实话，我过去以为我很讲究，但 139 你比我更讲究多了。太讲究，好累啊）。那个带圈字体，的确是随着字号大小而变化，不错！但是在实际应用中，不易键入，需要看图片所示才行，所以不太方便。如果确定正文不再变化，还是用我的宏设为一个热键如 F4 或 F8 等方便。
建议尽量少用带圈数字。

13907933959

413191246se 发表于 2015-11-16 09:46
那是当然，我只是把WORD工具栏上的带圈字符按钮录个宏而已，和原来是一样的，都是域的应用，只不过适当调整 ...

师傅好！
我不是讲究，只是我在整理这些东西时，要用到的小标题编号特别多，至所以用不同的小标题编号，目的是好把它们区分开，如用1～2种小标题编号就很容易混淆。没有办法还是按师傅说的，多用（1）（2）（3）……之类的小标题编号，少用带圈数字编号。