Dim oRow As Row
    For Each oRow In ActiveDocument.Tables(1).Rows
        If oRow.Cells(1).Range.Characters(1) = Chr(46) And _
           Len(oRow.Cells(1).Range) = 3 And _
           Len(oRow.Cells(2).Range) = 2 Then
            oRow.Delete
        End If
    Next oRow