how do I eliminate all commas except one:
the,,,quick,brown..fox...jumps,over,the.....lazy,d og,

this doesn't work:
With ActiveDocument.Content.Find
.ClearFormatting
Do While .Execute(FindText:=",,", Forward:=True, _
Format:=True) = True
With Selection.Find
.Text = ",,"
.Replacement.Text = ","
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
Loop
End With


thanks,,,,