Méthode Tables.Add (Word)
Renvoie un objet Table qui représente un nouveau tableau vide ajouté à un document.
expression. Add (Range, NumRows, NumColumns, DefaultTableBehavior, AutoFitBehavior)
expression Obligatoire. Variable qui représente une collection Tables.
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. |
Table
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
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.