VBA如何操控自动编号

过客fppt

batmanbbs 发表于 2024-3-24 19:21
我就是这样设计的，上一段代码就是从选中的开始继续重新编号。如果必须从1开始，代码如下：

谢谢batmanbbs老师，后面我再测试一下

sylun

可试试如下代码：

1. Sub test()
   
2.     Dim i%, myFormat As ParagraphFormat, oListtemplate As ListTemplate
   
3.     With Selection.Range
   
4.         If .ListParagraphs.Count = 0 Then MsgBox "选定内容无自动编号段落": Exit Sub
   
5.         Set myFormat = .ListParagraphs(1).Range.ParagraphFormat
   
6.         Set oListtemplate = .ListParagraphs(1).Range.ListFormat.ListTemplate
   
7.         .ListParagraphs(1).Range.ListFormat.ApplyListTemplate oListtemplate, False, 2
   
8.         For i = 1 To .ListParagraphs.Count
   
9.             .ListParagraphs(i).Range.ParagraphFormat = myFormat
   
10.         Next
    
11.     End With
    
12. End Sub
    

复制代码

过客fppt

sylun 发表于 2024-3-26 21:19
可试试如下代码：

非常感谢sylun老师，这个很好，符合我想要的效果

xinhairen999

413191246se 发表于 2024-3-24 02:59
* Corrected Code:

学习了，感谢分享。