Sub FormatNumbers()
Dim Rng As Range, Tbl As Table, oCll As Cell, StrFmt As String
With Selection
  If .Information(wdWithInTable) = True Then
    For Each oCll In .Tables(1).Range.Cells
      Set Rng = oCll.Range
      Rng.End = Rng.End - 1
      If IsNumeric(Rng.Text) Then
        If Left(Rng.Text, 1) Like "[$€£¥]" Then
          StrFmt = Left(Rng.Text, 1)
        Else
          StrFmt = ""
        End If
        If InStr(Rng.Text, ",") > 0 Then
          Rng.Text = StrFmt & Format(Round(Rng.Text, 0), "#,###")
        Else
          Rng.Text = StrFmt & Round(Rng.Text, 0)
        End If
      End If
    Next
  End If
End With
End Sub