In that case, you could use code like:
Code:
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