请问，这种“⑹”“⑺”这种序号如何通过查找突出显示？

mmcha2002

相见是缘8 发表于 2018-4-19 10:54
Sub 将序号删除()
    ActiveDocument.Content.Find.Execute "[①-⑩]", , , 1, , , , , , "", 2
End S ...

谢谢您，能不能在一个里面，把这三种不同的序号“⑴-⒇”“①-⑳”“⒈-⒛”融在一个代码里面呢？每一种都有20个编号，都是在WORD插入符号里面的特殊符号里面出现的。  ⒈  的这种并不是1加一个.，也是一个整体。

相见是缘8

mmcha2002 发表于 2018-4-19 12:25
谢谢您，能不能在一个里面，把这三种不同的序号“⑴-⒇”“①-⑳”“⒈-⒛”融在一个代码里面呢？每 ...

Sub 将序号删除()

    With ActiveDocument.Content.Find

        .Execute "[⑴-⒇]", , , 1, , , , , , "", 2

        .Execute "[①-⑩]", , , 1, , , , , , "", 2 '这个序号只能到⑩，从⑪～⑳是另一种字体。系统不支持，要找到这种“字体”加入系统字库。

        .Execute "[⒈-⒛]", , , 1, , , , , , "", 2

    End With

End Sub

mmcha2002

相见是缘8 发表于 2018-4-19 13:06
Sub 将序号删除()   With ActiveDocument.Content.Find       .Execute "[⑴-⒇]", , , 1, , ,, , , "\1" ...

您好，刚才试了一下，发现出现这种情况。是不是意味着WORD文档里面要同时出现这三种不同的序号，代码才可以运行？因为在一个文档里面，不一定会同时出现以上三种情况的序列号。我是想，无论文档里面出现了哪种符号，是出现一种还是两种、三种，只要运行这个代码，都可以直接替换了！！！

相见是缘8

mmcha2002 发表于 2018-4-19 13:16
您好，刚才试了一下，发现出现这种情况。是不是意味着WORD文档里面要同时出现这三种不同的序号，代码才可 ...

刚才是我弄错了，12楼的代码以修改。

mmcha2002

相见是缘8 发表于 2018-4-19 15:08
刚才是我弄错了，12楼的代码以修改。

嗯，谢谢您，但是在WORD里面可以显示⑪⑳，是不是意味着本身就有这种字体呢？如果本身就有，那么为什么在代码里面输入⑪的时候，又都是一个？呢？不过能这样已经很好了，谢谢您！

413191246se

楼主、相见：我也举一反三一下，请试用下面的代码，一网打尽！
Sub 删除序号()
    ActiveDocument.Content.Find.Execute "[①-⑩⒈-⒛⑴-⒇Ⅰ-Ⅻ㈠-㈩]@", , , 1, , , , , , "", 2
End Sub
***示例文本：
中国特色Ⅵ⒍Ⅵ社会主义
改革开放⒍Ⅵ马克思主义
基础教育⒗Ⅵ⒍职业教育
高等教育㈤⒗Ⅵ㈤继续教育
开拓进取⑤Ⅵ⑤锐意进取
贯彻落实⑹⒗Ⅵ重要思想
指导思想⒄㈤⑤Ⅵ⑹解放思想

mmcha2002

413191246se 发表于 2018-4-19 22:36
楼主、相见：我也举一反三一下，请试用下面的代码，一网打尽！
Sub 删除序号()
    ActiveDocument.Conte ...

谢谢您。请问⑪-⑳这种格式的，是不是不太好解决？

相见是缘8

413191246se 发表于 2018-4-19 22:36
楼主、相见：我也举一反三一下，请试用下面的代码，一网打尽！
Sub 删除序号()
    ActiveDocument.Conte ...

高！真正的一网打尽！是一句代码就可搞定的，昨天笨脑瓜没转过来！
大神、有什么办法让那个圆圈字体11～20在代码窗口内正常显示和正常运行呢？

mmcha2002

相见是缘8 发表于 2018-4-20 09:15
高！真正的一网打尽！是一句代码就可搞定的，昨天笨脑瓜没转过来！
大神、有什么办法让那个圆圈字体11～ ...

您也是高手！

相见是缘8

mmcha2002 发表于 2018-4-20 09:55
您也是高手！

哈哈！承蒙错爱！几个月的学习就只会这么多！