如何删除文字保留下划线

zzpsx

如图：captain希望被隐去，只保留他下面的下划线，以下同理，请问下面代码对吗？

如何删除文字保留下划线.rar (3.62 KB, 下载次数: 22)

2018-2-10 21:01 上传

点击文件名下载附件

Sub 删除文字保留下划线()
    Dim lg&
    With ActiveDocument.Content.Find
        .Font.Underline = wdUnderlineSingle
        Do While .Execute("[!^13]{1,}", , , 1)
            With .Parent
                lg = Len(.Text): .Text = Space(lg)
                .Collapse 0
            End With
        Loop
    End With
End Sub



以上代码可行吗？

duquancai

可不可行，难道你自己不知道吗？

duquancai

Sub 删除文字保留下划线()
    Dim lg&
    With ActiveDocument.Content.Find
        .Font.Underline = wdUnderlineSingle
        Do While .Execute
            With .Parent
                lg = Len(.Text): .Text = Space(lg)
            End With
        Loop
    End With
End Sub

zzpsx

duquancai 发表于 2018-2-11 00:58
Sub 删除文字保留下划线()
    Dim lg&
    With ActiveDocument.Content.Find

谢谢高手，您的代码可行。能让下划线长度一样长吗？

相见是缘8

zzpsx 发表于 2018-2-11 09:01
谢谢高手，您的代码可行。能让下划线长度一样长吗？

不知什么原因，我测试的结果是：从上往下算第三根的下划线好象也删除了。

13907933959

duquancai 发表于 2018-2-11 00:58
Sub 删除文字保留下划线()
    Dim lg&
    With ActiveDocument.Content.Find

杜前辈好！
我试了、上面的第三根下划线也会连同字母一起删掉了，这是何故呀？

413191246se

楼主，杜先生代码没有问题！但为什么第3个单词下划线看不到呢？因为正好那么多空格处在一行的末尾，Word 就不显示了，这是 Word 本身的问题，只须在该句子前打一下回车，即可看到有下划线的空格了！
（另：徒弟也参与此问题讨论了，好，多多参与！）
下面是杜先生代码，我略改了一下：

1. Sub 删除文字保留下划线()
   
2. 'code by duquancai
   
3.     On Error Resume Next
   
4.     Dim i&
   
5.     With ActiveDocument.Content.Find
   
6.         .Font.Underline = wdUnderlineSingle
   
7.         Do While .Execute
   
8.             i = i + 1
   
9.             .Parent.Text = Space(7)
   
10.         Loop
    
11.     End With
    
12.     MsgBox "处理完毕！共替换 " & i & " 处下划线！请核对！", 0 + 48
    
13. End Sub

复制代码

zzpsx

413191246se 发表于 2018-2-15 12:31
楼主，杜先生代码没有问题！但为什么第3个单词下划线看不到呢？因为正好那么多空格处在一行的末尾，Word 就 ...

代码运行很ok，谢谢各位大神。

13907933959

413191246se 发表于 2018-2-15 12:31
楼主，杜先生代码没有问题！但为什么第3个单词下划线看不到呢？因为正好那么多空格处在一行的末尾，Word 就 ...

师傅、好久不见，过年好！给您拜个早年，恭祝您身体健康！万事如意！
啊！原来是这个原因哪，我差点又怀疑是我的文档版本低的问题，谢师傅答疑解惑！前一段时间因我的3个师兄走了，医院的人手不够，我也好久没有上线，这两天比较清闲才来论坛上看看。

tangqingfu

收藏学习，感谢杜老师和413191246se兄分享