Sub Macro1()
Dim vList As Variant
Dim oTable As Table
Dim oCell As cell
Dim i As Long
Dim oRng As Range
Dim sText As String
Dim bOmit As Boolean

    vList = Array("Goodwill", "Income", "Net Cost", "A") 'The words to ignore when they appear to the left of the '/' character.

    For Each oTable In ActiveDocument.Tables
    With oTable
        For Each oCell In oTable.Range.Cells
            Set oRng = oCell.Range
            oRng.Case = wdTitleWord
            If InStr(1, oRng.Text, "/") > 0 Then
                sText = Split(oRng.Text, "/")(0)
                If IsNumeric(sText) = False Then
                    bOmit = False
                    For i = 0 To UBound(vList)
                        If CStr(vList(i)) = sText Then
                            bOmit = True
                            Exit For
                        End If
                    Next i
                    If bOmit = False Then
                        oRng.Text = Trim(Split(oRng.Text, "/")(1))
                    End If
                End If
            End If
        Next oCell
    End With
    Next oTable
    Set oTable = Nothing
    Set oRng = Nothing
End Sub