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