Clase Cell (Word VBA)

La clase Cell representa una celda de tabla.

Los principales procedimientos de la clase Cell son Delete, Select, Cells.Add y Cells.Delete

Set

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

Dim cll as Cell
Set cll = Selection.Cells(Index:=1)

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

For Each

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

Dim cll As Cell
For Each cll In Selection.Cells
 If cellLoop.ColumnIndex Mod 2 = 0 Then cellLoop.Column.Shading.Texture = wdTexture10Percent 
Next cll

Temas

Algunos procedimientos de esta clase se han agrupado en temas y se describen en páginas temáticas separadas

Column with its procedures Column y ColumnIndex
Row with its procedures Row y RowIndex

Métodos

Los principales métodos de la clase Cell son

Delete - Elimina la celda o las celdas de una tabla y controla de manera opcional el modo en que se desplazan las celdas restantes.

Selection.Cells(1).Delete

Select - Selecciona el objeto especificado.

Selection.Cells(1).Select

Cells.Add - Devuelve un objeto Cell que representa una celda agregada a una tabla.

Dim cll As Cell
Set cll = Selection.Cells.Add()

Cells.Delete - Elimina la celda o las celdas de una tabla y controla de manera opcional el modo en que se desplazan las celdas restantes.

Selection.Cells.Delete

Otros Métodos

Formula - Inserta un campo = (Fórmula) que contiene la fórmula especificada en la celda de una tabla.

Selection.Cells(1).Formula

SetHeight - Establece el alto de las celdas de la tabla.

Dim lngRowHeight As Long: lngRowHeight =  
Selection.Cells(1).SetHeight RowHeight:=lngRowHeight, HeightRule:=wdRowHeightAtLeast

SetWidth - Establece el ancho de las columnas o celdas de una tabla.

Selection.Cells(1).SetWidth ColumnWidth:=, RulerStyle:=wdAdjustFirstColumn

Split - Divide una celda de tabla en varias celdas.

Selection.Cells(1).Split

Cells.SetHeight - Establece el alto de las celdas de la tabla.

Dim lngRowHeight As Long: lngRowHeight =  
Selection.Cells.SetHeight RowHeight:=lngRowHeight, HeightRule:=wdRowHeightAtLeast

Cells.SetWidth - Establece el ancho de las columnas o celdas de una tabla.

Selection.Cells.SetWidth ColumnWidth:=, RulerStyle:=wdAdjustFirstColumn

Cells.Split - Divide un rango de celdas de tabla.

Selection.Cells.Split

Propiedades

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

Selection.Cells(1).Borders =

BottomPadding Devuelve o establece la cantidad de espacio (en puntos) que se agrega bajo el contenido de una sola celda o de todas las celdas de una tabla.

Selection.Cells(1).BottomPadding =

FitText True si Microsoft Word reduce visualmente el tamaño del texto escrito en una celda para que quepa dentro del ancho de columna.

Selection.Cells(1).FitText = True

Height Devuelve o establece el alto de la celda de tabla especificada.

Selection.Cells(1).Height =

HeightRule Devuelve o establece una constante WdRowHeightRule que representa la regla que determinará el alto de las celdas o filas especificadas.

Selection.Cells(1).HeightRule = wdRowHeightAtLeast

ID Devuelve o establece la etiqueta de identificación para el objeto especificado cuando el documento actual se guarda como una página web.

Selection.Cells(1).ID =

LeftPadding Devuelve o establece la cantidad de espacio (en puntos) para agregar a la izquierda del contenido de una sola celda o de todas las celdas de una tabla.

Selection.Cells(1).LeftPadding =

NestingLevel Devuelve el nivel de anidamiento de la celda especificada.

Dim lngNestingLevel As Long
lngNestingLevel = Selection.Cells(1).NestingLevel

Next Devuelve un objeto Cell que representa la siguiente celda de tabla en la colección Cells.

Dim cllNext As Cell
Set cllNext = Selection.Cells(1).Next

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

Dim objParent As Object
Set objParent = Selection.Cells(1).Parent

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

Selection.Cells(1).PreferredWidth =

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

Selection.Cells(1).PreferredWidthType = wdPreferredWidthAuto

Previous Devuelve un objeto Cell que representa la anterior celda de tabla en la colección Cells.

Dim cllPrevious As Cell
Set cllPrevious = Selection.Cells(1).Previous

Range Devuelve un objeto Range que representa la parte de un documento que está contenida en el objeto especificado.

Dim rngRange As Range
Set rngRange = Selection.Cells(1).Range

RightPadding Devuelve o establece la cantidad de espacio (en puntos) para agregar a la derecha del contenido de una sola celda o de todas las celdas de una tabla.

Selection.Cells(1).RightPadding =

Shading Devuelve un objeto shading que hace referencia al formato de sombreado del objeto especificado.

Dim shdShading As Shading
Set shdShading = Selection.Cells(1).Shading

Tables Devuelve una colección tables que representa todas las tablas anidadas dentro de la celda de tabla especificada.

Dim tblsTables As Tables
Set tblsTables = Selection.Cells(1).Tables

TopPadding Devuelve o establece la cantidad de espacio (en puntos) para agregar por encima del contenido de una sola celda o de todas las celdas de una tabla.

Selection.Cells(1).TopPadding =

VerticalAlignment Devuelve o establece la alineación vertical del texto en una o varias celdas de una tabla.

Selection.Cells(1).VerticalAlignment = wdCellAlignVerticalBottom

Width Devuelve o establece el ancho de una celda de tabla, en puntos.

Selection.Cells(1).Width =

WordWrap True si Microsoft Word ajusta el texto en varias líneas y aumenta la longitud de la celda para que el ancho de la celda sigue siendo la misma.

Selection.Cells(1).WordWrap = True

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

Selection.Cells.Borders =

Cells.Count Devuelve el número de elementos en la colección Cells.

Dim lngCount As Long
lngCount = Selection.Cells.Count

Cells.Height Devuelve o establece el alto de las celdas de la tabla especificada.

Selection.Cells.Height =

Cells.HeightRule Devuelve o establece una constante WdRowHeightRule que representa la regla que determinará el alto de las celdas especificadas.

Selection.Cells.HeightRule = wdRowHeightAtLeast

Cells.NestingLevel Devuelve el nivel de anidamiento de las celdas especificadas.

Dim lngNestingLevel As Long
lngNestingLevel = Selection.Cells.NestingLevel

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

Dim objParent As Object
Set objParent = Selection.Cells.Parent

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

Selection.Cells.PreferredWidth =

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

Selection.Cells.PreferredWidthType = wdPreferredWidthAuto

Cells.Shading Devuelve un objeto shading que hace referencia al formato de sombreado del objeto especificado.

Dim shdShading As Shading
Set shdShading = Selection.Cells.Shading

Cells.VerticalAlignment Devuelve o establece la alineación vertical del texto en una o varias celdas de una tabla.

Selection.Cells.VerticalAlignment = wdCellAlignVerticalBottom

Cells.Width Devuelve o establece el ancho de las celdas de tabla, en puntos.

Selection.Cells.Width =