The purpose of my macro is to insert a space after a comma when the
document originator failed to do so. The problem is that if I run the
macro on the entire document, it will put a space after the comma in
numerics, which is not a good thing. Such as $25, 000.00

Could someone please help me fix this macro so that when it encounters
a comma that is flnaked by numbers, it does not put a space behind the
comma? I've read the help file and tried to utilize it, but to no
avail.

Here is my macro code:
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
   .Text = ","
   .Replacement.Text = ", "
   .Forward = True
   .Wrap = wdFindContinue
End With
Selection.Find.Execute Replace:=wdReplaceAll

Here is the way I tried to fix my macro
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
   .Text = ",([! 0-9])"
   .Replacement.Text = ", \1"
   .Forward = True
   .Wrap = wdFindContinue
End With
Selection.Find.Execute Replace:=wdReplaceAll

BTW, could you explain what the \1 is doing in line 5 of the second
set of code?

Thanks for your help
Joanne