把目录中，纷乱的分隔号排列整齐

相见是缘8

老师们好！

那位老师有办法把 “附件” 内目录中，纷乱的分隔号排列整齐？

谢谢！

413191246se

相见：将横线全部替换为制表符，再将制表位加大至 16 字符（此值可调）即可。

1. Sub aaaa_tab_test()
   
2.     With ActiveDocument.Content.Find
   
3.         .ClearFormatting
   
4.         .Text = "[－]{1,}"
   
5.         .Forward = True
   
6.         .MatchWildcards = True
   
7.         Do While .Execute
   
8.             With .Parent
   
9.                 .Text = vbTab
   
10.                 .Font.Color = wdColorRed
    
11.                 .Start = .End
    
12.             End With
    
13.         Loop
    
14.     End With
    
15. '''
    
16.     Selection.WholeStory
    
17.     Selection.ParagraphFormat.TabStops.Add Position:=CentimetersToPoints(6.77) _
    
18.         , Alignment:=wdAlignTabLeft, Leader:=wdTabLeaderDashes
    
19. End Sub

复制代码

相见是缘8

413191246se 发表于 2021-2-7 11:53
相见：将横线全部替换为制表符，再将制表位加大至 16 字符（此值可调）即可。

老师好！
高级！衷心感谢老师！
我昨天手工弄了好长时间，才把 “想要的样子” 弄好，因还有几千个这样杂乱排列的产品序列号要整理，想想还是发帖向老师们求助，碰碰运气，没想到老师一下就给解决了！