Ler em inglês

Compartilhar via


Método Tables.Add (Word)

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.