Dim Tbl As Table, r As Long
For Each Tbl In ActiveDocument.Tables
  With Tbl
    If Len(.Range.Text) = .Range.Cells.Count * 2 + .Rows.Count * 2 Then
      .Delete: Set Tbl = Nothing
    Else
      For r = .Rows.Count To 1 Step -1
        With .Rows(r)
          If Len(.Range.Text) = .Cells.Count * 2 + 2 Then
            .Delete
          End If
        End With
      Next
    End If
  End With
  MsgBox Tbl Is Nothing
Next