word VBA 改变序号

Howard7738

看到7楼替换代码，很受启发，我有一个类似文档（附件），希望改变序号为每段落序号（paragraphs(i)中的i），向各位高手求助，先谢了！

413191246se

1. Sub aaaa_order_619()
   
2.     Dim i As Paragraph, n&
   
3.     For Each i In ActiveDocument.Paragraphs
   
4.         With i.Range
   
5.             If .Text Like "#、*" Or .Text Like "##、*" Or .Text Like "###、*" Then
   
6.                 n = n + 1
   
7.                 .Font.ColorIndex = wdBlue '此行代码可删除！
   
8.                 ActiveDocument.Range(Start:=.Characters(1).Start, End:=.Characters(InStr(.Text, "、")).End).Delete
   
9.                 .InsertBefore Text:=n & "．"
   
10.             Else
    
11.                 n = 0
    
12.             End If
    
13.         End With
    
14.     Next
    
15. End Sub

复制代码

leedun

413191246se 发表于 2022-6-19 07:23

前辈，如果是针对选区的段落怎么改

常扬帆

leedun 发表于 2022-6-22 21:04
前辈，如果是针对选区的段落怎么改

受益了，原来用域，现在用这个代码，爽歪歪的。谢谢！

Howard7738

413191246se 发表于 2022-6-19 07:23

非常感谢，代码简洁、高效，受益匪浅！

413191246se

* 楼主，如果你的系统是 Win10-64位系统，应该将代码粘贴到新建文档中，再"全选"，复制到 VBE 中；否则，可能会乱码。

1. Sub aaaa_重新编号_624()
   
2. '不选则全选
   
3.     On Error Resume Next
   
4.     Dim r As Range, i As Paragraph, n&
   
5.     Set r = IIf(Selection.Type = wdSelectionIP, ActiveDocument.Content, Selection.Range)
   
6.     For Each i In r.Paragraphs
   
7.         With i.Range
   
8.             If .Text Like "#?*" Or .Text Like "##?*" Or .Text Like "###?*" Or .Text Like "####?*" Then
   
9.                 n = n + 1
   
10.                 ActiveDocument.Range(Start:=.Characters(1).Start, End:=.Characters(InStr(.Text, "、")).End).Delete
    
11.                 ActiveDocument.Range(Start:=.Characters(1).Start, End:=.Characters(InStr(.Text, ".")).End).Delete
    
12.                 ActiveDocument.Range(Start:=.Characters(1).Start, End:=.Characters(InStr(.Text, "．")).End).Delete
    
13.                 .InsertBefore Text:=n & "．"
    
14.             Else
    
15.                 n = 0
    
16.             End If
    
17.         End With
    
18.     Next
    
19.     If r <> ActiveDocument.Content Then r.Select
    
20. End Sub

复制代码

Howard7738

413191246se 发表于 2022-6-24 20:32
* 楼主，如果你的系统是 Win10-64位系统，应该将代码粘贴到新建文档中，再"全选"，复制到 VBE 中；否则，可 ...

太好了，考虑很周到，学习了！