Classe Tables (Word VBA)

Collection d’objets table qui représentent les tableaux d’une sélection, d’une plage ou d’un document. Pour utiliser une variable de classe Tables, elle doit d'abord être instanciée, par exemple

Dim tbls as Tables
Set tbls = ActiveDocument.Tables

For Each

Voici un exemple de traitement des éléments Tables dans une collection

Dim tbl As Table
For Each tbl In ActiveDocument.Tables
	
Next tbl

Add

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

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

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

Arguments

Les arguments nommés :

Range (Range) - Plage dans laquelle vous souhaitez faire figurer le tableau.

NumRows (Long) - Nombre de lignes que vous souhaitez inclure dans le tableau.

NumColumns (Long) - Nombre de colonnes que vous souhaitez inclure dans le tableau.

Optional arguments

Les arguments suivants sont facultatifs

DefaultTableBehavior (WdDefaultTableBehavior) - Définit une valeur qui spécifie si Microsoft Word redimensionne automatiquement les cellules des tableaux en fonction du contenu des cellules (ajustement automatique).

Les valeurs de retour possibles sont wdWord8TableBehavior - Désactive l'ajustement automatique (AutoFit), wdWord9TableBehavior - Active l'ajustement automatique (AutoFit).

AutoFitBehavior (WdAutoFitBehavior) - Définit les règles d'Ajustement automatique relatives au dimensionnement des tables par Word.

Les valeurs de retour possibles sont wdAutoFitContent - Le tableau est automatiquement dimensionné pour ajuster son contenu, wdAutoFitFixed - La taille du tableau est définie sur une valeur fixe, indépendamment du contenu, et n'est pas dimensionnée automatiquement, wdAutoFitWindow - Les dimensions du tableau sont automatiquement ajustées en fonction de la largeur de la fenêtre active.

Count

Renvoie un type long qui représente le nombre de tables dans la collection.

Dim lngCount As Long
lngCount = ActiveDocument.Tables.Count

Item

Renvoie un objet table spécifique appartenant à une collection.

Item (Index)

Index: Objet spécifique qui doit être renvoyé.

Dim tbl As Table
Set tbl = ActiveDocument.Tables(Index:=1)

NestingLevel

Renvoie le niveau d'imbrication des tables spécifiées.

Le niveau d'imbrication 1 correspond au tableau le plus à l'extérieur.

Dim lngNestingLevel As Long
lngNestingLevel = ActiveDocument.Tables.NestingLevel