Método Tables.Add (Word)

Artigo
04/07/2023

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

Sintaxe

expressão. Adicionar (Range, NumRows, NumColumns, DefaultTableBehavior, AutoFitBehavior)

expressão Obrigatório. Uma variável que representa uma coleção 'Tables'.

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
Range	Obrigatório	Objeto 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	Obrigatório	Long	O número de linhas que você deseja incluir na tabela.
NumColumns	Obrigatório	Long	O número de colunas que você deseja incluir na tabela.
DefaultTableBehavior	Opcional	Variantes	Define um valor que especifica se o Microsoft Word redimensiona automaticamente as células em tabelas para ajustar o conteúdo das células (AutoFit). Pode ser uma das seguintes constantes: wdWord8TableBehavior (AutoAjuste desabilitado) ou wdWord9TableBehavior (AutoAjuste habilitado). A constante padrão é wdWord8TableBehavior.
AutoFitBehavior	Opcional	Variant	Define as regras de AutoAjuste para como o Word dimensiona as tabelas. Pode ser uma das seguintes constantes WdAutoFitBehavior.

Valor de retorno

Table

Exemplo

Este exemplo adiciona uma tabela vazia com três linhas e quatro colunas no início do documento ativo.

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

Este exemplo adiciona uma nova tabela vazia com 6 linhas e 10 colunas no final do documento ativo.

Set MyRange = ActiveDocument.Content 
MyRange.Collapse Direction:=wdCollapseEnd 
ActiveDocument.Tables.Add Range:=MyRange, NumRows:=6, _ 
 NumColumns:=10

Este exemplo adiciona uma tabela com três linhas e cinco colunas a um novo documento e insere dados em cada célula da tabela.

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

Confira também

Objeto da coleção Tables

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.

Compartilhar via