ITLearning/Dr.Excel

Cod: Selectaţi tot

Sub CapAfterRoundbracket()

    '(5)î cu (5)Î
    
    With ActiveDocument.Range.Find
        .ClearFormatting
        With .Replacement.Font
            .SmallCaps = False
            .AllCaps = True
        End With

        .MatchWildcards = True
        .Text = "([(][0-9]{1,}[)]) ([î])"
        .Replacement.Text = "\1 \2"
        .Execute Replace:=wdReplaceAll
    End With

End Sub