Good. Thanks.
You mentioned symbols $ and %. Here is a revision to process data like $50.00 or 25%
Code:
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
strText = 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
If Trim(varVal(0)) <> vbNullString Then
oRng.Text = Trim(varVal(0))
Else
oRng.Text = Trim(varVal(1))
End If
oRng.Cells(1).Next.Range.Text = varSyms(lngIndex)
Exit For
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