Sub DecimalFormatter()
Dim Rslt, RsDz, oCel As Cell, Rng As Range
If Selection.Information(wdWithInTable) = False Then
  MsgBox "Cannot run outside a table", vbExclamation, "Decimal Formatter"
  Exit Sub
End If
Rslt = MsgBox("Format the whole table?", vbYesNoCancel, "Decimal Formatter")
If Rslt = vbCancel Then Exit Sub
RsDz = MsgBox("Apply currency formatting?", vbYesNo, "Decimal Formatter")
If RsDz = vbNo Then RsDz = ""
If RsDz = vbYes Then RsDz = "$"
If Rslt = vbNo Then
  For Each oCel In Selection.Cells
    Set Rng = oCel.Range
    With Rng
    .End = .End - 1
      If IsNumeric(.Text) Then .Text = Format(.Text, RsDz & "#,##0.00")
    End With
  Next
End If
If Rslt = vbYes Then
  For Each oCel In Selection.Tables(1).Range.Cells
    Set Rng = oCel.Range
    With Rng
    .End = .End - 1
      If IsNumeric(.Text) Then .Text = Format(.Text, RsDz & "#,##0.00")
    End With
  Next
End If
End Sub