Dakle, koristim sljedeće:
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = ", ([!^t,A-Ž])"
.Replacement.Text = ",\1"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub
Ono što bi trebao raditi, to je da se u slučaju "0, 05%" dogodi "0,05%", ali ova formula smanjuje razmak i ako je iza zareza slovo, znači: "0, FF" postaje "0,FF" što ne bi trebao raditi.
