Compartir a través de

Objeto Columns (Publicador)

Una colección de columnas objetos que representan las columnas de una tabla.

Observaciones

Utilice las columnas propiedad de la tabla objeto para devolver la colección de columnas.

Use Columnas (índice), donde index es el número de índice, para devolver un único objeto Column . El número de índice representa la posición de la columna en la colección Columns (contando de izquierda a derecha).

Utilice la ventana Agregar método para agregar una columna a una tabla.

Ejemplo

En el ejemplo siguiente se muestra el número de objetos Column de la colección de columnas de la primera tabla del documento activo.

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

En este ejemplo se escribe un número en negrita en cada celda de la tabla especificada. Se supone que la forma especificada es una tabla y no otro 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

En el ejemplo siguiente se selecciona la tercera columna de la tabla especificada.

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

Este ejemplo agrega una columna a la tabla especificada en la segunda página de la publicación activa y, a continuación, ajusta el ancho, combina las celdas y establece el color de relleno. En este ejemplo se supone que la primera forma es una tabla y no otro 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

Propiedades

Vea también

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.

  • Last updated on