Sub CheckTableCells()
Dim oTable As Table
Dim oCell As Cell
Dim MyRange As Range
    For Each oTable In ActiveDocument.Tables
        For Each oCell In oTable.Range.Cells
            Set MyRange = oCell.Range
            MyRange.End = MyRange.End - 1
            If Len(MyRange) = 0 Then
                MyRange.Style = ActiveDocument.Styles("standard1")
            End If
        Next oCell
    Next oTable
End Sub