VBA删除文档中文字的下划线！

king38425

如图中，全文加了下划线，用VBA怎么删除文字的下划线？再请教下，如果一行中有空格，那怎样给为空格的加下划线呢？谢谢！

413191246se

全选——按两下 下划线 按钮即可取消下划线。空格下面加下划线，直接加即可。

cuanju

请测试代码。

Sub dm2()
    ActiveDocument.Content.Font.Underline = wdUnderlineNone
    With ActiveDocument.Content.Find
        .MatchWildcards = True
        .Text = "^t"
        Do While .Execute
            With .Parent
                .Font.Underline = wdUnderlineSingle
                .Start = .End
            End With
        Loop
    End With
End Sub

相见是缘8

cuanju 发表于 2019-10-26 10:32
请测试代码。

Sub dm2()

厉害！又多了一位值得学习的老师！

daibao88

Sub dm2()
    ActiveDocument.Content.Font.Underline = wdUnderlineNone
    With ActiveDocument.Content.Find
    .ClearFormatting
        .MatchWildcards = True
        .Text = " "
        .Replacement.ClearFormatting
        .Replacement.Text = ""
        .Replacement.Font.Underline = wdUnderlineSingle
        .Execute Replace:=wdReplaceAll
    End With
End Sub

daibao88

一次完成的事，干嘛要循环。

相见是缘8

daibao88 发表于 2019-10-27 09:11
一次完成的事，干嘛要循环。

哈哈！daibao88 老师的代码是删除所有的下划线，你误判楼主的意思了，他只是想要删除所有文字的下划线，空格的下划线则要保留。cuanju 老师的代码满足了楼主的要求。

cuanju

文中的空格实际都是制表符^t，所以daibao88 老师的代码稍作修改，就可以使用，不用循环，提高了效率。
Sub dmnew()
    ActiveDocument.Content.Font.Underline = wdUnderlineNone
    With ActiveDocument.Content.Find
        .ClearFormatting
        .MatchWildcards = True
        .Text = "^t"
        .Replacement.ClearFormatting
        .Replacement.Text = ""
        .Replacement.Font.Underline = wdUnderlineSingle
        .Execute Replace:=wdReplaceAll
    End With
End Sub
========================
运行代码后，加下划线的地方要填内容，应该达到了效果。

king38425

daibao88 发表于 2019-10-27 09:04
Sub dm2()
    ActiveDocument.Content.Font.Underline = wdUnderlineNone
    With ActiveDocument.Cont ...

感谢老师的帮助