Propriété Range.TopLevelTables (Word)
Renvoie une collection Tables qui représente les tableaux du niveau d'imbrication le plus extérieur de la plage actuelle. En lecture seule.
Syntaxe
expression. TopLevelTables
expression Variable représentant un objet Range.
Remarques
Cette méthode renvoie une collection contenant uniquement les tableaux dont le niveau d'imbrication est le plus à l'extérieur dans le contexte de la plage actuelle. Ces tableaux peuvent toutefois ne pas se trouver au niveau le plus à l'extérieur par rapport à l'ensemble des tableaux imbriqués.
Pour plus d’informations sur le renvoi d’un seul membre d’une collection, consultez Renvoi d’un objet à partir d’une collection.
Exemple
Cet exemple montre comment créer un document, créer un tableau imbriqué à trois niveaux d'imbrication, puis remplir la première cellule de chaque tableau avec son niveau. Il indique comment sélectionner la deuxième colonne du tableau de deuxième niveau, puis le premier des tableaux de niveau supérieur dans cette sélection. Le tableau le plus au centre est sélectionné, bien qu'il ne soit pas un tableau de niveau supérieur dans le contexte de l'ensemble des tableaux imbriqués.
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
Voir aussi
Assistance et commentaires
Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.