word更换下滑线

SCWYZJ

求助：在Word中怎样一键更换所有的下划线，请老师看看（见附件），谢谢！

413191246se

1. Sub ChangeUnderlineColor()
   
2.     Dim i$
   
3.     i = MsgBox("<YES>Green    <NO>Pink    <CANCEL>Blue", 3 + 48, "Select Color")
   
4.     With ActiveDocument.Content.Find
   
5.         .ClearFormatting
   
6.         .Font.Underline = wdUnderlineSingle
   
7.         With .Replacement
   
8.             .ClearFormatting
   
9.             If i = vbYes Then
   
10.                 .Font.UnderlineColor = wdColorGreen
    
11.             ElseIf i = vbNo Then
    
12.                 .Font.UnderlineColor = wdColorPink
    
13.             Else
    
14.                 .Font.UnderlineColor = wdColorBlue
    
15.             End If
    
16.         End With
    
17.         .Execute FindText:="", ReplaceWith:="", Format:=True, Replace:=wdReplaceAll
    
18.     End With
    
19. End Sub
    
20. Sub ChangeUnderlineSingle2Double()
    
21.     With ActiveDocument.Content.Find
    
22.         .ClearFormatting
    
23.         .Font.Underline = wdUnderlineSingle
    
24.         With .Replacement
    
25.             .ClearFormatting
    
26.             .Font.Underline = wdUnderlineDouble
    
27.         End With
    
28.         .Execute FindText:="", ReplaceWith:="", Format:=True, Replace:=wdReplaceAll
    
29.     End With
    
30. End Sub

复制代码