OK, between the final 'Next' and 'End With', insert:
Code:
With .Range.Find
.ClearFormatting
.Replacement.ClearFormatting
.Text = "([ ^s]{1,})([,.;:\?\!^13^l^t])"
.Replacement.Text = "\2"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchWildcards = True
.Execute Replace:=wdReplaceAll
End With