本论坛1年多来宏成果展示

文化属性666

感谢前辈整理分享

lizhipei78

非常感谢，终于找到一些好用的学习资料了

xh605

谢谢楼主的无私分享，佩服您的学习精神！

Excel2119

感谢分享，学习学习

rrxfw

多谢，大哥牛啊

gaolzhen

不错，学习了

najagay

老当益壮，老而弥坚，赞

tangqingfu

感谢前辈的分享

蚂蚁爬爬爬爬

感谢分享，非常实用

陈玉龙

老师：你好，你的关于编号的vba代码，对我很实用。Sub 编号1()  '编号1、 Dim r As range, i As Paragraph, s$     s = InputBox("未选则全选！如果未准备好，请按<取消>按钮！", "请输入起始序号（正整数）！", "1")     If s = "" Then Exit Sub     If s <> 0 Then s = s - 1     Set r = IIf(Selection.Type = wdSelectionIP, ActiveDocument.Content, Selection.range)     With r         .Find.Execute "([（0-9０-９]@)([、.．）])", , , 1, , , , , , "1、", 2 '此处与下面统一修改         For Each i In .Paragraphs             With i.range                 If .Text Like "1、*" Then '此处与上面统一修改                     s = s + 1                     .Characters(1).Text = s                 End If             End With         Next         .Select     End With End Sub。能不能在这个代码的基础上延伸，可切换为（1）；①；A.；a.这个集中类型