Método Tables.Add (Word)
Retorna um objeto Table que representa uma nova tabela em branco adicionada a um documento.
expressão. Adicionar (Range, NumRows, NumColumns, DefaultTableBehavior, AutoFitBehavior)
expressão Obrigatório. Uma variável que representa uma coleção 'Tables'.
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. |
Table
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
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.