word vba如何判断嵌套表格？

okok0611

我现有一个word文档，里面有很多表格，其中一部分是表格里面又嵌套了表格，对于此类嵌套表格使用VBA如何判断？

cuanju

请测试代码。

========================================
Sub d3()
'判断第几个表格有嵌套表格
Dim Tbl As Table
    On Error Resume Next
    i = 1
    For Each Tbl In ActiveDocument.Tables
        If Tbl.Tables.Count > 0 Then
            MsgBox "第" & i & "个表格里有嵌套表格！"
        End If
        i = i + 1
    Next
End Sub

daibao88

Sub test()
    Dim i As Integer, str As String
    If ActiveDocument.Tables.Count = 0 Then
        MsgBox "文档没有表格"
    Else
        For i = 1 To ActiveDocument.Tables.Count
            If ActiveDocument.Tables(i).Range.TopLevelTables.Count >= 1 Then str = str & "," & i
        Next
        If str = "" Then
            MsgBox "文档表格没有嵌套表格"
        Else
            str = VBA.Right(str, Len(str) - 1)
            MsgBox "文档表格" & str & "有嵌套表格"
        End If
    End If
End Sub