如何跳过表格中的段落？

sunystar

在满足一定条件下，我要删除一个表格以及表格上面的一行（其实也就是一段），表格下方有注释时也同样会删除。在网上找到一段这样的代码，
“ For Each i In ActiveDocument.Paragraphs
    If CheckBox3.Value = False Then
      If InStr(i.Range, "表1：……") > 0 Then
        i.Range.Delete
        ActiveDocument.Tables(8 - num).Delete
        num = num + 1
      end if
   end if
   If CheckBox4.Value = False Then
      If InStr(i.Range, "表2：……") > 0 Then
        i.Range.Delete
        ActiveDocument.Tables(9 - num).Delete
        num = num + 1
      end if
   end if
   '……此处省略一系列类似代码
  next ”
但是整个循环下来很慢，我想是由于需要对每个段落都进行判断，包括每个单元格，请问通过什么样的方法可以跳过对表格的判断。或者大家有什么更好的建议吗？谢谢~~

LangQueS

建议上传问题附件