求教：手动序号调整问题

常扬帆

    手动序号乱了，用seq域可以调整。但是凭我的水平，它只能从“1”开始。问题来了，如果要从1001开始怎么办？ 详情见附件。不吝指教为盼，万分感谢！

413191246se

1. Sub a0908_Manual2Auto()
   
2. '手动序号转自动编号/不选则全选
   
3.     Dim r As Range, i As Paragraph, s$
   
4.     s = InputBox("未选则全选！如果未准备好，请按<取消>按钮！", "请输入起始序号（正整数）！", "1")
   
5.     If s = "" Then Exit Sub
   
6.     If s <> 0 Then s = s - 1
   
7.     Set r = IIf(Selection.Type = wdSelectionIP, ActiveDocument.Content, Selection.Range)
   
8.     With r
   
9.         .Find.Execute "([0-9０-９]@)([、.．])", , , 1, , , , , , "1．", 2
   
10.         For Each i In .Paragraphs
    
11.             With i.Range
    
12.                 If .Text Like "1．*" Then
    
13.                     s = s + 1
    
14.                     .Characters(1).Text = s
    
15.                 End If
    
16.             End With
    
17.         Next
    
18.         .Select
    
19.     End With
    
20. End Sub

复制代码

常扬帆

413191246se 发表于 2022-9-8 23:48

十分好用，万分感谢！