Sub Macro1()
Dim oTbl As Table
Dim oRng As Range
Dim strText As String
Dim lngCol As Long, lngRow As Long, lngIndex As Long
Dim varVal
Dim varSyms
  'Auto processes Dollar sign, percent sign, euro, pound sterling, and yen
  strText = "$:%:" & ChrW(8364) & ":" & ChrW(163) & ":" & ChrW(165) 'InputBox("Enter the symbols separated with colon, eg. $:%", "SYMBOLS", "$:%")
  Application.ScreenUpdating = False
  varSyms = Split(strText, ":")
  For Each oTbl In ActiveDocument.Tables
    For lngCol = 1 To oTbl.Columns.Count - 1 Step 2
      For lngRow = 1 To oTbl.Rows.Count
        Set oRng = oTbl.Cell(lngRow, lngCol).Range
        oRng.End = oRng.End - 1
        For lngIndex = 0 To UBound(varSyms)
          varVal = Split(oRng.Text, varSyms(lngIndex))
          If UBound(varVal) = 1 Then
            Select Case True
              Case Trim(varVal(0)) <> vbNullString And Trim(varVal(1)) <> vbNullString
                'Where the symbol splits two numerical values.
                oRng.Text = Trim(varVal(0)) & "." & Trim(varVal(1))
              Case Trim(varVal(0)) <> vbNullString
                'Where the symbol follows the numerical value.
                oRng.Text = Trim(varVal(0))
              Case Else
                'Where the symbol precedes the numerical value.
                oRng.Text = Trim(varVal(1))
            End Select
            oRng.Cells(1).Next.Range.Text = varSyms(lngIndex)
          End If
        Next lngIndex
      Next lngRow
      DoEvents
    Next lngCol
  Next oTbl
  Application.ScreenUpdating = True
  MsgBox "Tables processed"
lbl_Exit:
  Set oTbl = Nothing
  Set oRng = Nothing
  Exit Sub
End Sub