Asta nu face nimic.
De ce ?
Multumesc.
Cod: Selectaţi tot
Sub Deboldare()
Selection.Find.ClearFormatting
Selection.Find.Replacement.Font.Bold = False
With Selection.Find
.Text = "(1)"
.Replacement.Text = "(1)"
.Forward = True
.Wrap = wdFindAsk
.Format = True
.MatchCase = True
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub