方括号里手动编号转为自动编号？

晨晓之黎

原效果


效果后


谁能帮忙写选区方括号里手动编号转为自动编号的代码？（有附件）谢谢！

zhanglei1371

之前sylun已经给你写出类似的代码了，稍微修改下不就行了。

晨晓之黎

zhanglei1371 发表于 2021-1-25 12:33
之前sylun已经给你写出类似的代码了，稍微修改下不就行了。

不会修改

413191246se

* 楼主：请选定要转换的文字（制表位这块儿不太懂，如果有问题得等sylun老师等来解决）后应用：

1. Sub AutoNum_Set()
   
2.     Dim r As Range
   
3.     With Selection
   
4.         If .Type = 1 Then MsgBox "Not-Select!", 0 + 16: End
   
5.         If Asc(.Characters.Last.Previous.Text) = 12 Then .MoveEnd 1, -2
   
6.         If Asc(.Characters.Last.Previous.Text) = 13 Then .MoveEnd 1, -1
   
7.         Set r = .Range
   
8.     End With
   
9.     With r
   
10.         .MoveStart 1, -1
    
11.         .Find.Execute "(^13)(\[[0-9]{1,}\]^9)", , , 1, , , , , , "\1", 2
    
12.         .MoveStart
    
13.         .Select
    
14.         .ParagraphFormat.TabStops.ClearAll
    
15.     End With
    
16.     With ListGalleries(wdNumberGallery).ListTemplates(1).ListLevels(1)
    
17.         .NumberFormat = "[%1]"
    
18.         .TrailingCharacter = wdTrailingTab
    
19.         .NumberStyle = wdListNumberStyleArabic
    
20.         .NumberPosition = CentimetersToPoints(0)
    
21.         .Alignment = wdListLevelAlignLeft
    
22.         .TextPosition = CentimetersToPoints(1.25)
    
23.         .TabPosition = CentimetersToPoints(0)
    
24.         .ResetOnHigher = 0
    
25.         .StartAt = 1
    
26.         .LinkedStyle = ""
    
27.     End With
    
28.     ListGalleries(wdNumberGallery).ListTemplates(1).Name = ""
    
29.     Selection.Range.ListFormat.ApplyListTemplateWithLevel ListTemplate:= _
    
30.         ListGalleries(wdNumberGallery).ListTemplates(1), ContinuePreviousList:= _
    
31.         True, ApplyTo:=wdListApplyToWholeList, DefaultListBehavior:= _
    
32.         wdWord10ListBehavior
    
33. End Sub

复制代码

晨晓之黎

413191246se 发表于 2021-1-25 13:18
* 楼主：请选定要转换的文字（制表位这块儿不太懂，如果有问题得等sylun老师等来解决）后应用：

谢谢你的代码！多余的制表符位置不要了！

晨晓之黎

413191246se 发表于 2021-1-25 13:18
* 楼主：请选定要转换的文字（制表位这块儿不太懂，如果有问题得等sylun老师等来解决）后应用：

413191246se大神，请看下我录小视频，删除制表符方法，VBA代码基础上能不能去掉本来加了不该加的制表符或多余的制表符全部删除，谢谢！

413191246se

* 请在代码中查找"Clear"(清除),找到就说明全部制表位已经删除了，可以重新设置。
* 另外，我不得不说，我一向是一个比较讲究的人！但是，你比我更讲究！

晨晓之黎

413191246se 发表于 2021-1-27 19:10
* 请在代码中查找"Clear"(清除),找到就说明全部制表位已经删除了，可以重新设置。
* 另外，我不得不说，我 ...

谢谢夸奖！应该是排版工作被逼出来的吧！我加了你的QQ（平淡）已经发了资料，不知你收到了没？

413191246se

楼主，我昨天等了一天，没见动静，我给你号码了，你只要发到我的 QQ 邮箱 就可以了，但你要发送，没收到，我已经很久没上 QQ 了！请发到我的邮箱可好？

sylun

试试修改前面代码TrailingCharacter的属性值，除wdTrailingTab外，还可选wdTrailingNone或者wdTrailingSpace，自己试试效果