Observação
O acesso a essa página exige autorização. Você pode tentar entrar ou alterar diretórios.
O acesso a essa página exige autorização. Você pode tentar alterar os diretórios.
Retorna uma coleção Columns que representa todas as colunas da tabela especificada.
Sintaxe
expressão. Colunas
Expressão Uma variável que representa um objeto Table .
Exemplo
Este exemplo insere um número em negrito em cada célula da tabela especificada. Este exemplo pressupõe que a forma especificada seja uma tabela e não outro tipo de forma.
Sub CountCellsByColumn()
Dim shpTable As Shape
Dim colTable As Column
Dim celTable As Cell
Dim intCount As Integer
intCount = 1
Set shpTable = ActiveDocument.Pages(2).Shapes(1)
'Loops through each column in the table
For Each colTable In shpTable.Table.Columns
'Loops through each cell in the column
For Each celTable In colTable.Cells
With celTable.Text
.Text = intCount
.ParagraphFormat.Alignment = _
pbParagraphAlignmentCenter
.Font.Bold = msoTrue
intCount = intCount + 1
End With
Next celTable
Next colTable
End Sub
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.