Compartir a través de

Objeto Cell (Word)

  • Artículo

Representa una celda de tabla. El objeto Cell es un miembro de las celdas colección. La colección Cells representa todas las celdas del objeto especificado.

Comentarios

Use Cell (fila, columna), donde row es el número de fila y column es el número de columna, o Cells (index), donde index es el número de índice, para devolver un objeto Cell . En el ejemplo siguiente se aplica sombreado a la segunda celda de la primera fila.

Set myCell = ActiveDocument.Tables(1).Cell(Row:=1, Column:=2) 
myCell.Shading.Texture = wdTexture20Percent

En el siguiente ejemplo se aplica sombreado a la primera celda de la primera fila.

ActiveDocument.Tables(1).Rows(1).Cells(1).Shading _ 
 .Texture = wdTexture20Percent

Utilice la ventana Agregar método para agregar un objeto Cell a la colección Cells. También puede utilizar el InsertCells método del objeto Selection para insertar nuevas celdas. En el ejemplo siguiente se agrega una celda antes de la primera celda en myTable.

Set myTable = ActiveDocument.Tables(1) 
myTable.Range.Cells.Add BeforeCell:=myTable.Cell(1, 1)

En el ejemplo siguiente se establece un rango ( myRange ) que hace referencia a las dos primeras celdas de la primera tabla. Una vez establecido el intervalo, se combinan las celdas mediante el método Merge.

Set myTable = ActiveDocument.Tables(1) 
Set myRange = ActiveDocument.Range(myTable.Cell(1, 1) _ 
 .Range.Start, myTable.Cell(1, 2).Range.End) 
myRange.Cells.Merge

Comentarios

Utilice el método Add con la colección Rows o Columns para agregar una fila o una columna de celdas.

Utilice la información propiedad con un objeto Selection para devolver el número de fila y de columna actual. En el ejemplo siguiente se cambia el ancho de la primera celda de la selección y a continuación, muestra el número de la celda de la fila y de columna.

If Selection.Information(wdWithInTable) = True Then 
 With Selection 
 .Cells(1).Width = 22 
 MsgBox "Cell " & .Information(wdStartOfRangeRowNumber) _ 
 & "," & .Information(wdStartOfRangeColumnNumber) 
 End With 
End If

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.