Macro

[Apostolu]

Buna,
Cum fac urmatorul replace pe toate paginile ?

2) îbdsfgyt
cu
2) Îbdsfgyt

Adica:
oricenumar paranteza space litera x
cu
oricenumar paranteza space litera x mare

Multumiri

[beenason]

incearca-l p-asta

Cod: Selectaţi tot

Sub CapAfterRoundbracket()
    With ActiveDocument.Range.Find
        .ClearFormatting
        With .Replacement.Font
            .SmallCaps = False
            .AllCaps = True
        End With

        .MatchWildcards = True
        .Text = "([0-9][)]) ([a-z])"
        .Replacement.Text = "\1 \2"
        .Execute Replace:=wdReplaceAll
    End With
End Sub

[Apostolu]

Scuze de intarziere,
Multumesc pt. macro.
Daca nu vreau orice litera, este suficient sa inlocuiesc [a-z] cu [litera dorita] ?
Inca o data multumesc.

[Dr.Windows]

Daca nu vreau orice litera, este suficient sa inlocuiesc [a-z] cu [litera dorita] ?

Da... se poate cu litera dorita sau cu literele dorite, ca de ex.:

Cod: Selectaţi tot

.Text = "([0-9][)]) ([r,m,n])"