Clase Column (Word VBA)

La clase Column representa una sola columna de tabla.

Los principales procedimientos de la clase Column son Delete, Select, Columns.Add, Columns.Delete y Columns.Select

Set

Para usar una variable de clase Column, primero debe ser instanciado, por ejemplo

Dim clm as Column
Set clm = ActiveDocument.Range.Columns(Index:=1)

Los siguientes procedimientos se pueden usar para establecer variables de clase Column : Cell.Column, Next, Previous, Columns.Add, Columns.Item, Columns.First, Columns.Last, Range.Columns, Selection.Columns y Table.Columns

For Each

A continuación, se muestra un ejemplo de cómo procesar los elementos Column en una colección.

Dim clm As Column
For Each clm In ActiveDocument.Range.Columns
	
Next clm

Métodos

Los principales métodos de la clase Column son

Delete - Elimina la columna especificada.

ActiveDocument.Range.Columns(1).Delete

Select - Selecciona la columna de tabla especificada.

ActiveDocument.Range.Columns(1).Select

Columns.Add - Devuelve un objeto Column que representa una columna agregada a una tabla.

Dim clm As Column
Set clm = ActiveDocument.Range.Columns.Add()

Columns.Delete - Elimina las columnas especificadas.

ActiveDocument.Range.Columns.Delete

Columns.Select - Selecciona las columnas de tabla especificadas.

ActiveDocument.Range.Columns.Select

Otros Métodos

SetWidth - Establece el ancho de una columna de una tabla.

ActiveDocument.Range.Columns(1).SetWidth ColumnWidth:=, RulerStyle:=wdAdjustFirstColumn

Sort - Ordena la columna de tabla especificada.

ActiveDocument.Range.Columns(1).Sort

Columns.SetWidth - Establece el ancho de las columnas de una tabla.

ActiveDocument.Range.Columns.SetWidth ColumnWidth:=, RulerStyle:=wdAdjustFirstColumn

Propiedades

Borders Devuelve una colección Borders que representa todos los bordes del objeto especificado.

ActiveDocument.Range.Columns(1).Borders =

Cells Devuelve una colección Cells que representa las celdas de tabla en una columna de tabla.

Dim cllsCells As Cells
Set cllsCells = ActiveDocument.Range.Columns(1).Cells

Index Devuelve un valor de tipo Long que representa la posición de un elemento en una colección.

Dim lngIndex As Long
lngIndex = ActiveDocument.Range.Columns(1).Index

IsFirst True si la columna o fila especificada es la primera de la tabla.

Dim booIsFirst As Boolean
booIsFirst = ActiveDocument.Range.Columns(1).IsFirst

IsLast True si la columna o fila especificada es la última de la tabla.

Dim booIsLast As Boolean
booIsLast = ActiveDocument.Range.Columns(1).IsLast

NestingLevel Devuelve el nivel de anidamiento de la columna especificada.

Dim lngNestingLevel As Long
lngNestingLevel = ActiveDocument.Range.Columns(1).NestingLevel

Next Devuelve la siguiente columna de una colección de columnas de tabla.

Dim clmNext As Column
Set clmNext = ActiveDocument.Range.Columns(1).Next

Parent Devuelve un objeto Object que representa el objeto primario del objeto Column especificado.

Dim objParent As Object
Set objParent = ActiveDocument.Range.Columns(1).Parent

PreferredWidth Devuelve o establece el ancho preferido (en puntos o como un porcentaje del ancho de la ventana) de la columna especificada.

ActiveDocument.Range.Columns(1).PreferredWidth =

PreferredWidthType Devuelve o establece la unidad de medida preferida que se debe utilizar para el ancho de la columna de tabla especificada.

ActiveDocument.Range.Columns(1).PreferredWidthType = wdPreferredWidthAuto

Previous Devuelve la columna anterior de una colección de columnas de tabla.

Dim clmPrevious As Column
Set clmPrevious = ActiveDocument.Range.Columns(1).Previous

Shading Devuelve un objeto shading que hace referencia al formato de sombreado de la columna especificada.

Dim shdShading As Shading
Set shdShading = ActiveDocument.Range.Columns(1).Shading

Width Devuelve o establece el ancho de la columna especificada, en puntos.

ActiveDocument.Range.Columns(1).Width =

Columns.Borders Devuelve una colección Borders que representa todos los bordes de las columnas especificadas.

ActiveDocument.Range.Columns.Borders =

Columns.Count Devuelve un Long que representa el número de columnas de la colección.

Dim lngCount As Long
lngCount = ActiveDocument.Range.Columns.Count

Columns.First Devuelve un objeto Column que representa el primer elemento de la colección Columns .

Dim clmFirst As Column
Set clmFirst = ActiveDocument.Range.Columns.First

Columns.Last Devuelve un objeto Column que representa la última columna de una tabla.

Dim clmLast As Column
Set clmLast = ActiveDocument.Range.Columns.Last

Columns.NestingLevel Devuelve el nivel de anidamiento de las columnas especificadas.

Dim lngNestingLevel As Long
lngNestingLevel = ActiveDocument.Range.Columns.NestingLevel

Columns.Parent Devuelve un objeto Object que representa el objeto primario del objeto Columns especificado.

Dim objParent As Object
Set objParent = ActiveDocument.Range.Columns.Parent

Columns.PreferredWidth Devuelve o establece el ancho preferido (en puntos o como un porcentaje del ancho de la ventana) para las columnas especificadas.

ActiveDocument.Range.Columns.PreferredWidth =

Columns.PreferredWidthType Devuelve o establece la unidad de medida preferida que se debe utilizar para el ancho de las celdas especificadas, columnas o tabla.

ActiveDocument.Range.Columns.PreferredWidthType = wdPreferredWidthAuto

Columns.Shading Devuelve un objeto shading que hace referencia al formato de sombreado de las columnas de tabla especificadas.

Dim shdShading As Shading
Set shdShading = ActiveDocument.Range.Columns.Shading

Columns.Width Devuelve o establece el ancho de las columnas especificadas, en puntos.

ActiveDocument.Range.Columns.Width =