Propriété Selection.TopLevelTables (Word)

  • Article

Renvoie une collection Tables qui représente les tableaux du niveau d'imbrication le plus extérieur dans la sélection actuelle. En lecture seule.

Syntaxe

expression. TopLevelTables

Expression Variable qui représente un objet Selection .

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 sélection 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.TopLevelTables(1).Select 
 End With 
End With

Voir aussi

Selection, objet

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.