With Selection
.Extend Character:="," .MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend End With
Selection.Cut