Objeto Columns (Word)
Una colección de columnas objetos que representan las columnas de una tabla.
Comentarios
Utilice la propiedad Columns de un objeto de tabla, selección o intervalo para devolver una colección de columnas. 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.
MsgBox ActiveDocument.Tables(1).Columns.Count
En el ejemplo siguiente se crea una tabla con seis columnas y tres filas y, a continuación, se da formato a cada columna con un porcentaje de sombreado cada vez mayor (más oscuro).
Set myTable = ActiveDocument.Tables.Add(Range:=Selection.Range, _
NumRows:=3, NumColumns:=6)
For Each col In myTable.Columns
col.Shading.Texture = 2 + i
i = i + 1
Next col
Utilice la ventana Agregar método para agregar una columna a una tabla. En el ejemplo siguiente se agrega una columna a la primera tabla del documento activo y, a continuación, se igualan los anchos de columna.
If ActiveDocument.Tables.Count >= 1 Then
Set myTable = ActiveDocument.Tables(1)
myTable.Columns.Add BeforeColumn:=myTable.Columns(1)
myTable.Columns.DistributeWidth
End If
Utilizar columnas (Index), donde Index es el número de índice, para devolver un solo objeto Column. El número de índice representa la posición de la columna en la colección Columns (contando de izquierda a derecha). En el ejemplo siguiente se selecciona la primera columna de la primera tabla.
ActiveDocument.Tables(1).Columns(1).Select
Métodos
Nombre |
---|
Add |
AutoFit |
Delete |
DistributeWidth |
Elemento |
Select |
SetWidth |
Propiedades
Nombre |
---|
Aplicación |
Borders |
Count |
Creator |
Primero |
Último |
NestingLevel |
Parent |
PreferredWidth |
PreferredWidthType |
Shading |
Width |
Vea también
Referencia de modelos de objetos de Word
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.