Caps After Roundbracket

Închis
Apostolu
Mesaje: 285
Membru din: Joi Aug 20, 2009 4:05 pm

Caps After Roundbracket

Mesaj de Apostolu » Mar Sep 11, 2018 11:18 am

Win 10
Office 2016
Macro care nu merge.
Ma depaneaza cineva ?
Multumesc.

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
Ultima oară modificat Mie Mar 27, 2019 10:34 am de către Dr.Windows, modificat 1 dată în total.
Motiv: Adaugare taguri CODE

Închis

Înapoi la “Visual Basic for Application (VBA) - Intrebari tehnice”