选中单词如何变成下划线加括号

zzpsx

选中单词如何变成下划线加括号.rar (3.84 KB, 下载次数: 16)

2018-2-13 17:11 上传

点击文件名下载附件

413191246se

请楼主将附件中“分割线”一段及以后文字删除后测试，以下代码为 duquancai（杜先生）原创，本人略改：

1. Sub 完形填空_红色下划线单词转序号后加括号()
   
2. 'code by duquancai原创,413191246se略改
   
3.     On Error Resume Next
   
4.     Dim n&, L&
   
5.     With ActiveDocument.Content.Find
   
6.         .Font.ColorIndex = wdRed
   
7.         Do While .Execute("[!^32]{1,}", , , 1)
   
8.             n = n + 1
   
9.             With .Parent
   
10.                 L = (Len(.Text) - Len(n)) \ 2
    
11.                 .Text = Space(3) & n & Space(3) & "(      )"
    
12.                 .Select
    
13.                 Selection.MoveStart unit:=wdCharacter, Count:=Len(Selection) - 8
    
14.                 Selection.Font.Underline = wdUnderlineNone
    
15.                 .Collapse 0
    
16.             End With
    
17.         Loop
    
18.     End With
    
19. End Sub

复制代码

zzpsx

413191246se 发表于 2018-2-15 11:36
请楼主将附件中“分割线”一段及以后文字删除后测试，以下代码为 duquancai（杜先生）原创，本人略改：

谢谢两位大神，祝你们新年快乐。

413191246se

杜先生 才是真正的大神！我不敢当！——也祝楼主及全家：新年快乐！春节快乐！合家欢乐！

413191246se

另：楼主，以后回复一定要说明“代码运行OK！问题解决！”，这样大家才放心……

zzpsx

代码运行很ok，问题解决，谢谢各位。

tangqingfu

感谢413191246se兄分享