Range.TopLevelTables (Word)

Retorna uma coleção Tables que representa as tabelas no nível de aninhamento mais externo no intervalo atual. Somente leitura.

Esse método retorna uma coleção que contém apenas as tabelas no nível de aninhamento externo dentro do contexto do intervalo atual. Essas tabelas podem não estar no nível de aninhamento externo dentro do conjunto inteiro de tabelas aninhadas. Para obter informações sobre como retornar um único membro de uma coleção, consulte retornando um objeto de uma coleção.

Documents.Add 
ActiveDocument.Tables.Add Selection.Range, _ 
 3, 3, wdWord9TableBehavior, wdAutoFitContent 
With ActiveDocument.Tables(1).Range 
 .Copy 
 .Cells(1).Range.Text = .Cells(1).NestingLevel 
 .Cells(5).Range.PasteAsNestedTable 
 With .Cells(5).Tables(1).Range 
 .Cells(1).Range.Text = .Cells(1).NestingLevel 
 .Cells(5).Range.PasteAsNestedTable 
 With .Cells(5).Tables(1).Range 
 .Cells(1).Range.Text = _ 
 .Cells(1).NestingLevel 
 End With 
 .Columns(2).Select 
 Selection.Range.TopLevelTables(1).Select 
 End With 
End With