求段代码：删去指定段落的表格

weiyingde

如提供的文档中有三个表格，我只想删去第六段中插入的表格，该怎样实现。
我想用.information来锚定目标表格，可是没有相应的表达。

413191246se

魏教师：第6段落确实在表格中，第7段落也在表格中。但我不认为，表格是在第6段落中。对付表格，首先一点是取消其文字环绕，然后再对表格进行相应处理。比如下面的代码：
Sub LoopTables()
    Dim t As Table
    For Each t In ActiveDocument.Tables
        With t
            .Rows.WrapAroundText = False
            .Range.Font.Color = wdColorRed
        End With
    Next
End Sub

tcdatongye

ActiveDocument.Paragraphs(6).Range.Tables(1).Delete

weiyingde

tcdatongye 发表于 2021-5-11 18:01
ActiveDocument.Paragraphs(6).Range.Tables(1).Delete

很好，我试试。

weiyingde

tcdatongye 发表于 2021-5-11 18:01
ActiveDocument.Paragraphs(6).Range.Tables(1).Delete

经测试，并不能锚定该位置上的表格。
也就是说，ActiveDocument.Paragraphs(6).Range.Tables(1).Delete和
ActiveDocument.Tables(1).Delete的效果是一样的。

tcdatongye

并不是删去第五段中内嵌式表格，而是第6段所在表格，故仅在第6段才能锚定。不知你这样定法有何意义？可以先找选择题答题卡所在段，然后到下个段就是所需定位表格了。

1. Sub 删去第五段中内嵌式表格()
   
2. Dim par As Paragraph, tbs As Tables
   
3. For Each par In ActiveDocument.Paragraphs
   
4.     n = n + 1
   
5.       If par.Range.Information(wdWithInTable) = True Then
   
6.         If n = 6 Then par.Range.Tables(1).Delete
   
7.       End If
   
8. Next
   
9. End Sub

复制代码

weiyingde

413191246se 发表于 2021-5-11 14:41
魏教师：第6段落确实在表格中，第7段落也在表格中。但我不认为，表格是在第6段落中。对付表格，首先一点是 ...

谢谢帮助，不能设置为环绕型，只能设置为嵌入型，因为，其他类型会导致版面的混乱。

weiyingde

tcdatongye 发表于 2021-5-12 08:39
并不是删去第五段中内嵌式表格，而是第6段所在表格，故仅在第6段才能锚定。不知你这样定法有何意义？可以先 ...

这是我试卷模板的一段代码，我是想自动格式，期中必须更新答案卡，而在更新答案卡是首先要删除。
而我的答案卡通常在第六段（或第五段）以表格形式插入。
另外，为了确保其通用性，使他也适用于没有答案卡的试卷的格式整理，故必须锚定指定位置的表格；若是不锚定位置，当这种没有答案卡的试卷中出现表格形式的题目，在格式试卷的时候，可能会将这种题目当答案卡给删除了。

413191246se

魏老师：我认为表格不属于某个段落，某个段落会属于表格。在使用表格前，要先循环设置其不环绕。

weiyingde

tcdatongye 发表于 2021-5-12 08:39
并不是删去第五段中内嵌式表格，而是第6段所在表格，故仅在第6段才能锚定。不知你这样定法有何意义？可以先 ...

发现这段代码是可行的。
其实，我在发帖前也写了一个通用过程。如下
Public Sub 删去指定位置的表格(ParNub As Integer)
Dim par As Paragraph
For Each par In ActiveDocument.Paragraphs
    n = n + 1
      If n = ParNub Then
         If par.Range.Information(wdWithInTable) = True Then ActiveDocument.Tables(1).Delete
         Exit For
      End If
Next
End Sub
我也没有测试，相当然的以为tables(N)中的N会以先后建立的顺序，事实上，我测试的时候竟发觉，N是以文档中的位置为依据的。
谢谢你。
我若是先测试一下，免得麻烦你了。
再次谢谢你的帮助。