Compartilhar via

Objeto Columns (Publisher)

  • Artigo

Um conjunto de coluna objetos que representam as colunas em uma tabela.

Comentários

Use as colunas propriedade da tabela objeto para retornar a coleção Columns.

Use Colunas (índice), em que o índice é o número do índice, para retornar um único objeto Column . O número de índice representa a posição da coluna da coleção Columns (contando da esquerda para a direita).

Use a Adicionar método adicionar uma coluna a uma tabela.

Exemplo

O exemplo seguinte exibe o número de objetos Column da coleção Columns da primeira tabela do documento ativo.

Sub CountColumns() 
 MsgBox "The number of columns in the table is " & _ 
 ActiveDocument.Pages(2).Shapes(1).Table.Columns.Count 
End Sub

Este exemplo insere um número em negrito em cada célula da tabela especificada. Ele 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) 
 For Each colTable In shpTable.Table.Columns 
 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

O exemplo a seguir seleciona a terceira coluna da tabela especificada.

Sub SelectColumns() 
 ActiveDocument.Pages(2).Shapes(1).Table.Columns(3).Cells.Select 
End Sub

Este exemplo adiciona uma coluna à tabela especificada na segunda página da publicação ativa, em seguida, ajusta a largura, mescla as células e define a cor de preenchimento. Este exemplo pressupõe que a primeira forma seja uma tabela e não outro tipo de forma.

Sub NewColumn() 
 Dim colNew As Column 
 
 Set colNew = ActiveDocument.Pages(2).Shapes(1).Table.Columns _ 
 .Add(BeforeColumn:=3) 
 With colNew 
 .Width = 2 
 .Cells.Merge 
 .Cells(1).Fill.ForeColor.RGB = RGB(Red:=202, Green:=202, Blue:=202) 
 End With 
End Sub

Métodos

Propriedades

Confira também

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.