请问怎么可以快速去掉下划线的答案

xuanhf

请问怎么可以快速去掉下划线的答案

batmanbbs

静听溪流

xuanhf

查找内容里面写的是什么

过客fppt

xuanhf 发表于 2024-1-14 17:34
查找内容里面写的是什么

查找内容里面写的是星号*

常扬帆

这是群里大佬为我写的：
Dim i&, j&
    With ActiveDocument.Content.Find
        .ClearFormatting
        .Text = "[（(]*[)）]"
        .Forward = True
        .MatchWildcards = True
        Do While .Execute
            With .Parent
                .Characters(1).Text = "（"
                .Characters.Last.Text = "）"
                .MoveStart
                j = Len(.Text)
                For i = 1 To j
                    .Characters(i).Text = Chr(-24159)
                Next
                .Start = .End
            End With
        Loop
    End With
   
'下划线
    With ActiveDocument.Content.Find
        .ClearFormatting
        .Font.Underline = wdUnderlineSingle
        .Text = ""
        .Forward = True
        .MatchWildcards = True
        Do While .Execute
            With .Parent
                j = Len(.Text)
                For i = 1 To j
                    .Characters(i).Text = Chr(-24159)
                Next
                .Start = .End + 1
            End With
        Loop
    End With