Classe Table (Word VBA)

La classe Table représente un seul tableau.

Les procédures principales de la classe Table sont Delete, Select et Tables.Add

Set

Pour utiliser une variable de classe Table, elle doit d'abord être instanciée, par exemple

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

Les procédures suivantes peuvent être utilisés pour définir des variables de la classe Table : Range.ConvertToTable, Selection.ConvertToTable, Split, Tables.Add, Tables.Item, Cell.Tables, Document.Tables, Range.Tables, Range.TopLevelTables, Selection.Tables, Selection.TopLevelTables et Tables

For Each

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

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

Thèmes

Certaines procédures de cette classe ont été regroupées en thèmes et sont décrites sur des pages thématiques séparées

Format with its procedures ApplyStyleColumnBands, ApplyStyleDirectFormatting, ApplyStyleFirstColumn, ApplyStyleHeadingRows, ApplyStyleLastColumn, ApplyStyleLastRow, ApplyStyleRowBands, AutoFormat, AutoFormatType, Borders, BottomPadding, LeftPadding, PreferredWidth, PreferredWidthType, RightPadding, Spacing, Style, TopPadding et UpdateAutoFormat
Sort/Order with its procedures Sort, SortAscending et SortDescending

Méthodes

Les méthodes principales de la classe Table sont

Delete - Supprime le tableau spécifié.

ActiveDocument.Tables(1).Delete

Select - Sélectionne le tableau spécifié.

ActiveDocument.Tables(1).Select

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

Dim lngNumRows As Long: lngNumRows = 
Dim lngNumColumns As Long: lngNumColumns =  
Dim tbl As Table
Set tbl = ActiveDocument.Tables.Add(Range:=, NumRows:=lngNumRows, NumColumns:=lngNumColumns)

Autre Méthodes

Cell - Renvoie un objet Cell qui représente une cellule dans un tableau.

Dim lngRow As Long: lngRow = 
Dim lngColumn As Long: lngColumn =  
Dim cll As Cell
Set cll = ActiveDocument.Tables(1).Cell(Row:=lngRow, Column:=lngColumn)

ConvertToText - Convertit un tableau en texte et renvoie un objet Range qui représente le texte délimité.

Dim rngConvertToText As Range
Set rngConvertToText = ActiveDocument.Tables(1).ConvertToText()

Propriétés

AllowAutoFit Permet à Microsoft Word de redimensionner automatiquement les cellules d'un tableau selon leur contenu.

ActiveDocument.Tables(1).AllowAutoFit = True

Columns Renvoie une collection Columns qui représente toutes les colonnes du tableau.

Dim clmsColumns As Columns
Set clmsColumns = ActiveDocument.Tables(1).Columns

Descr Cette propriété renvoie ou définit une chaîne qui contient une description pour la table spécifiée.

ActiveDocument.Tables(1).Descr =

ID Cette propriété renvoie ou définit l’étiquette d’identification de la table spécifiée lorsque le document est enregistré en tant que page Web.

ActiveDocument.Tables(1).ID =

NestingLevel Renvoie le niveau d'imbrication du tableau spécifié.

Dim lngNestingLevel As Long
lngNestingLevel = ActiveDocument.Tables(1).NestingLevel

Parent Renvoie un Object qui représente l'objet parent de l'objet Table spécifié.

Dim objParent As Object
Set objParent = ActiveDocument.Tables(1).Parent

Range Renvoie un objet Range qui représente la partie d'un document contenue dans le tableau spécifié.

Dim rngRange As Range
Set rngRange = ActiveDocument.Tables(1).Range

Rows Renvoie une collection Rows qui représente toutes les lignes d’un tableau.

Dim rwsRows As Rows
Set rwsRows = ActiveDocument.Tables(1).Rows

Shading Renvoie un objet Shading qui représente la mise en forme de la trame de fond pour l'objet spécifié.

Dim shdShading As Shading
Set shdShading = ActiveDocument.Tables(1).Shading

TableDirection Renvoie ou définit le sens dans lequel Microsoft Word ordonne les cellules dans le tableau spécifié.

ActiveDocument.Tables(1).TableDirection = wdTableDirectionLtr

Tables Renvoie une collection tables qui représente tous les tableaux imbriqués dans le tableau spécifié.

Dim tblsTables As Tables
Set tblsTables = ActiveDocument.Tables(1).Tables

Title Cette propriété renvoie ou définit une chaîne qui contient un titre pour la table spécifiée.

ActiveDocument.Tables(1).Title =

Uniform True si toutes les lignes d'un tableau ont le même nombre de colonnes.

Dim booUniform As Boolean
booUniform = ActiveDocument.Tables(1).Uniform

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

Dim lngCount As Long
lngCount = ActiveDocument.Tables.Count

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

Dim lngNestingLevel As Long
lngNestingLevel = ActiveDocument.Tables.NestingLevel

Tables.Parent Renvoie un Object qui représente l'objet parent de l'objet Tables spécifié.

Dim objParent As Object
Set objParent = ActiveDocument.Tables.Parent