Clase Tables (Word VBA)

Colección de objetos TABLE que representa las tablas de una selección, intervalo o documento. Para usar una variable de clase Tables, primero debe ser instanciado, por ejemplo

Dim tbls as Tables
Set tbls = ActiveDocument.Tables

For Each

A continuación, se muestra un ejemplo de cómo procesar los elementos Tables en una colección.

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

Add

Devuelve un objeto TABLE que representa una nueva tabla en blanco agregada a un documento.

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

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

Arguments

Estos son los argumentos con nombre :

Range (Range) - Intervalo donde desea que aparezca la tabla.

NumRows (Long) - Número de filas que desea incluir en la tabla.

NumColumns (Long) - Número de columnas que desea incluir en la tabla.

Optional arguments

Los siguientes argumentos son opcionales

DefaultTableBehavior (WdDefaultTableBehavior) - Establece un valor que especifica si Microsoft Word cambia automáticamente el tamaño de las celdas de las tablas para ajustar el contenido de las celdas (Autoajuste).

Posibles valores de retorno son wdWord8TableBehavior - Deshabilita la característica Autoajuste, wdWord9TableBehavior - Habilita la característica Autoajuste.

AutoFitBehavior (WdAutoFitBehavior) - Establece las reglas de Autoajuste para cómo Word cambia el tamaño de las tablas.

Posibles valores de retorno son wdAutoFitContent - El tamaño de la tabla se ajusta automáticamente al contenido incluido en la tabla, wdAutoFitFixed - La tabla se ajusta a un tamaño fijo, independientemente del contenido, y su tamaño no se cambia automáticamente, wdAutoFitWindow - El tamaño de la tabla se ajusta automáticamente al ancho de la ventana activa.

Count

Devuelve un Long que representa el número de tablas de la colección.

Dim lngCount As Long
lngCount = ActiveDocument.Tables.Count

Item

Devuelve un objeto TABLE individual de una colección.

Item (Index)

Index: El objeto individual que se va a devolver.

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

NestingLevel

Devuelve el nivel de anidamiento de las tablas especificadas.

La tabla más exterior tiene un nivel 1 de anidamiento.

Dim lngNestingLevel As Long
lngNestingLevel = ActiveDocument.Tables.NestingLevel