|
|
在满足一定条件下，我要删除一个表格以及表格上面的一行（其实也就是一段），表格下方有注释时也同样会删除。在网上找到一段这样的代码，
“ 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 ”
但是整个循环下来很慢，我想是由于需要对每个段落都进行判断，包括每个单元格，请问通过什么样的方法可以跳过对表格的判断。或者大家有什么更好的建议吗？谢谢~~ |
|
