Hi Pasquale,

Want to try this one?
[VBA]
Selection.HomeKey wdStory

With Selection.Find
.ClearFormatting
.Replacement.ClearFormatting
.Forward = True
.Wrap = wdFindStop
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchAllWordForms = False
.MatchSoundsLike = False
End With

Do
Selection.Collapse wdCollapseEnd

With Selection.Find
.Text = "\{*\}"
.Replacement.Text = ""
.MatchWildcards = True
If Not .Execute Then Exit Do

.Text = "' "
.Replacement.Text = "'"
.MatchWildcards = False
.Execute Replace:=wdReplaceAll
End With

Loop[/VBA]

What did I learn? That the construct {1,} which means "one or more occurrences of the preceding element" actually means from 1 to 255 occurrences. The joys of Word!