Sub ToggleTextInGreenCells()
Dim oTable As Table
Dim oCell As Cell
Dim oRng As Range
    For Each oTable In ActiveDocument.Tables
        For Each oCell In oTable.Range.Cells
            If oCell.Shading.BackgroundPatternColor = RGB(194, 214, 155) Then
                Set oRng = oCell.Range
                oRng.End = oRng.End - 1
                If oRng.Font.Hidden = True Then
                    oRng.Font.Hidden = False
                Else
                    oRng.Font.Hidden = True
                End If
            End If
        Next oCell
    Next oTable
lbl_Exit:
    Set oTable = Nothing
    Set oCell = Nothing
    Set oRng = Nothing
    Exit Sub
End Sub