带下划线的单词如何变成序号下划线？

zzpsx

这样的按钮效果如何实现.rar (22.33 KB, 下载次数: 11)

2020-4-5 18:04 上传

点击文件名下载附件

413191246se

* 楼主，按钮我不会做，但可以请你按 Alt + F8 找到本宏点击运行按钮启动它：

1. Sub aaaa下划线转序号()
   
2.     Dim n&
   
3.     With ActiveDocument.Content.Find
   
4.         .ClearFormatting
   
5.         .Text = ""
   
6.         .Font.Underline = wdUnderlineSingle
   
7.         .Forward = True
   
8.         .MatchWildcards = True
   
9.         Do While .Execute
   
10.             n = n + 1
    
11.             With .Parent
    
12.                 .Font.Color = wdColorBlue '???
    
13.                 .Text = Space(3) & n & Space(3)
    
14.                 .Start = .End
    
15.             End With
    
16.         Loop
    
17.     End With
    
18. End Sub
    

复制代码

tangqingfu

413191246se 发表于 2020-4-5 22:37
* 楼主，按钮我不会做，但可以请你按 Alt + F8 找到本宏点击运行按钮启动它：

谢谢413191246se兄的分享，测试通过！

413191246se

唐兄好！温故知新啊！

jiangxiaoyun

Sub aaaa下划线转序号()
  Dim n&
  With ActiveDocument.Content.Find
  .ClearFormatting
  .Text = ""
  .Font.Underline = wdUnderlineSingle
  .Forward = True
  .MatchWildcards = True
  Do While .Execute
    n = n + 1
     ilen = Int(Len(.Parent) / 2) + 1
    With .Parent
      .Font.Color = wdColorBlue '
      .Text = Space(ilen) & n & Space(ilen)
      .Start = .End
    End With
  Loop
  End With
End Sub
稍微改一下，，