Méthode Tables.Add (Word)

Article
04/07/2023

Renvoie un objet Table qui représente un nouveau tableau vide ajouté à un document.

Syntaxe

expression. Add (Range, NumRows, NumColumns, DefaultTableBehavior, AutoFitBehavior)

expression Obligatoire. Variable qui représente une collection Tables.

Paramètres

Nom	Requis/Facultatif	Type de données	Description
Range	Obligatoire	Range (objet)	Plage dans laquelle vous souhaitez faire figurer le tableau. Si la plage n'est pas réduite, le tableau la remplace.
NumRows	Obligatoire	Entier long	Nombre de lignes que vous souhaitez inclure dans le tableau.
NumColumns	Obligatoire	Entier long	Nombre de colonnes que vous souhaitez inclure dans le tableau.
DefaultTableBehavior	Facultatif	Variant	Définit une valeur qui spécifie si Microsoft Word redimensionne automatiquement les cellules des tableaux pour les adapter au contenu des cellules (Ajustement automatique). Il peut s’agir de l’une des constantes suivantes : wdWord8TableBehavior (Ajustement automatique désactivé) ou wdWord9TableBehavior (Ajustement automatique activé). La constante par défaut est wdWord8TableBehavior.
AutoFitBehavior	Facultatif	Variant	Définit les règles d'Ajustement automatique relatives au dimensionnement des tables par Word. Il peut s’agir d’une des constantes WdAutoFitBehavior.

Valeur renvoyée

Table

Exemple

Cet exemple montre comment ajouter un tableau vide de trois lignes sur quatre colonnes au début du document actif.

Set myRange = ActiveDocument.Range(0, 0) 
ActiveDocument.Tables.Add Range:=myRange, NumRows:=3, NumColumns:=4

Cet exemple montre comment ajouter un nouveau tableau vide de six lignes sur dix colonnes à la fin du document actif.

Set MyRange = ActiveDocument.Content 
MyRange.Collapse Direction:=wdCollapseEnd 
ActiveDocument.Tables.Add Range:=MyRange, NumRows:=6, _ 
 NumColumns:=10

Cet exemple montre comment ajouter un tableau de trois lignes sur cinq colonnes dans un nouveau document, puis comment insérer des données dans chaque cellule du tableau.

Sub NewTable() 
 Dim docNew As Document 
 Dim tblNew As Table 
 Dim intX As Integer 
 Dim intY As Integer 
 
 Set docNew = Documents.Add 
 Set tblNew = docNew.Tables.Add(Selection.Range, 3, 5) 
 With tblNew 
 For intX = 1 To 3 
 For intY = 1 To 5 
 .Cell(intX, intY).Range.InsertAfter "Cell: R" & intX & ", C" & intY 
 Next intY 
 Next intX 
 .Columns.AutoFit 
 End With 
End Sub

Voir aussi

Objet de la collection Tables

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.

Partager via