Classe Tables (Word VBA)

Uma coleção de objetos Table que representa as tabelas em uma seleção, intervalo ou documento. Para usar uma variável de classe Tables, ela primeiro precisa ser instanciada por exemplo

Dim tbls as Tables
Set tbls = ActiveDocument.Tables

For Each

Aqui está um exemplo de processamento dos itens Tables em uma coleção.

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

Add

Retorna um objeto Table que representa uma nova tabela em branco adicionada a um documento.

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

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

Arguments

O seguinte argumento é opcional

Range (Range) - O intervalo no qual você deseja que a tabela apareça. A tabela substituirá o intervalo, se o intervalo não estiver recolhido.

NumRows (Long) - O número de linhas que você deseja incluir na tabela.

NumColumns (Long) - O número de colunas que você deseja incluir na tabela.

Optional arguments

Os seguintes argumentos são opcionais

DefaultTableBehavior (WdDefaultTableBehavior) - Define um valor que especifica se o Microsoft Word redimensiona automaticamente as células em tabelas para ajustar o conteúdo das células (AutoAjuste). Pode ser uma das seguintes constantes: wdWord8TableBehavior (AutoAjuste desabilitado) ou wdWord9TableBehavior (AutoAjuste habilitado). A constante padrão é wdWord8TableBehavior.

Os valores de retorno possíveis são wdWord8TableBehavior - Desabilita o autoAjuste. Padrão, wdWord9TableBehavior - Habilita o AutoAjuste.

AutoFitBehavior (WdAutoFitBehavior) - Define as regras de AutoAjuste para como o Word dimensiona as tabelas. Pode ser uma das seguintes constantes WdAutoFitBehavior.

Os valores de retorno possíveis são wdAutoFitContent - A tabela é automaticamente ajustada para exibir o conteúdo contido na tabela, wdAutoFitFixed - A tabela é definida para um tamanho fixo, independentemente do conteúdo, e não é automaticamente dimensionada, wdAutoFitWindow - A tabela é automaticamente dimensionada para a largura da janela ativa.

Count

Retorna um Long que representa o número de tabelas na coleção. Somente leitura.

Dim lngCount As Long
lngCount = ActiveDocument.Tables.Count

Item

Retorna um objeto Table individual em uma coleção.

Item (Index)

Index: O objeto individual a ser retornado. Pode ser um Long que indica a posição ordinal do objeto individual.

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

NestingLevel

Retorna o nível de aninhamento de tabelas especificadas. Long somente leitura.

A tabela externa tem o nível de aninhamento 1. O nível de aninhamento de cada tabela aninhada sucessivamente é um acima do da tabela anterior.

Dim lngNestingLevel As Long
lngNestingLevel = ActiveDocument.Tables.NestingLevel