Sub NumberSeparators()
'
' NumberSeparators Macro
' This macro changes the notation of a number from
' European to North-American or vice-versa.
' E.g.:
' Replaces 1,098,879.98 with 1.098.879,98 or
' 1.098.879,98 with 1,098,879.98.
'
' Macro recorded 18/Sep/04 by //
' 1- Replaces a comma with an intermediate sign (ç),
' 2- Replaces a comma with a dot
' 3- Replaces the intermediate sign with a dot
'
' 1-
'
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
  .Text = "([0-9]),([0-9])"
  .Replacement.Text = "\1ç\2"
  .Forward = True
  .Wrap = wdFindContinue
  .Format = False
  .MatchCase = False
  .MatchWholeWord = False
  .MatchAllWordForms = False
  .MatchSoundsLike = False
  .MatchWildcards = True
End With
'
' 2-
'
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
  .Text = "([0-9]).([0-9])"
  .Replacement.Text = "\1,\2"
  .Forward = True
  .Wrap = wdFindContinue
  .Format = False
  .MatchCase = False
  .MatchWholeWord = False
  .MatchAllWordForms = False
  .MatchSoundsLike = False
  .MatchWildcards = True
End With
'
' 3-
'
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
  .Text = "([0-9])ç([0-9])"
  .Replacement.Text = "\1.\2"
  .Forward = True
  .Wrap = wdFindContinue
  .Format = False
  .MatchCase = False
  .MatchWholeWord = False
  .MatchAllWordForms = False
  .MatchWildcards = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub