VBA改变WORD中序号方式

yjwdjfqb · 发表于 2018-4-5 08:52

1、有皮疹、荨麻疹、瘙痒、药物热、注射部位疼痛、静脉炎、腹泻、恶心、呕吐、食欲不振等。
2、碱性磷酸酶或血清氨基转移酶轻度升高、暂时性血尿素氮和肌酐升高等。
3、白细胞减少、嗜酸性粒细胞增多或血小板减少等。
4、偶见头痛、麻木、呼吸困难和面部潮红。
5、极少数病人可发生粘膜念珠菌病。
10、演示
50、测试语句

VBA改变WORD中序号方式
将上面语句的1、　2、　3、等等开始的语句序号，改成
（1）　（2）　（3）　请老师们帮帮忙，谢谢大家了！

duquancai · 发表于 2018-4-5 10:54

查找替换，话说也没附件，仅仅凭你举例的几个，与真实文档，多数情况存在误差！说的夸张点：既然你这样提问就知道你的水平，我敢断定你考虑片面了！

yjwdjfqb · 发表于 2018-4-5 11:25

duquancai 发表于 2018-4-5 10:54
查找替换，话说也没附件，仅仅凭你举例的几个，与真实文档，多数情况存在误差！说的夸张点：既然你这样提问 ...

谢谢老师提醒，下回一定改正！

相见是缘8 · 发表于 2018-4-5 15:05

yjwdjfqb 发表于 2018-4-5 11:25
谢谢老师提醒，下回一定改正！

楼主、有顶级大神解答，还不赶快上传一个真实文档作为 “测试附件”，要等何时？

相见是缘8 · 发表于 2018-4-5 15:10

duquancai 发表于 2018-4-5 10:54
查找替换，话说也没附件，仅仅凭你举例的几个，与真实文档，多数情况存在误差！说的夸张点：既然你这样提问 ...

大神说得对！

yjwdjfqb · 发表于 2018-4-5 15:14

相见是缘8 发表于 2018-4-5 15:05
楼主、有顶级大神解答，还不赶快上传一个真实文档作为 “测试附件”，要等何时？

Word中利用VBA改变序号样式.rar (3.72 KB, 下载次数: 31)

相见是缘8 · 发表于 2018-4-5 16:21

yjwdjfqb 发表于 2018-4-5 15:14

如文档中是这样的，那就简单，不用大神出手，试一下我这个可不可以解决？

Sub test()
ActiveDocument.Content.Find.Execute "([0-9]{1,2})(、)", , , 1, , , , , , "（\1）", 2
End Sub

yjwdjfqb · 发表于 2018-4-5 16:41

相见是缘8 发表于 2018-4-5 16:21
如文档中是这样的，那就简单，不用大神出手，试一下我这个可不可以解决？

Sub test()

很好用，谢谢老师了！

相见是缘8 · 发表于 2018-4-6 07:17

本帖最后由相见是缘8 于 2018-4-7 06:27 编辑

yjwdjfqb 发表于 2018-4-5 16:41
很好用，谢谢老师了！

老师实不敢当，能用就好！我来这里学习也不久，还只会泡泡“方便面”，不象大神们出手就是“满汉全席”！

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

[求助] VBA改变WORD中序号方式

评分

评分

评分