Compartir a través de

Objeto Row (Publicador)

Representa una fila de una tabla. El objeto Row es un miembro de las filas colección. La colección Rows incluye todas las filas de una tabla especificada.

Observaciones

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

Utilice el método Item de filas colección, para devolver un objeto Row.

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

Utilice Eliminar método para eliminar una fila de una tabla.

Ejemplo

En este ejemplo se selecciona la primera fila de la primera forma de la segunda página de la publicación activa. En este ejemplo se supone que la forma especificada es una tabla y no otro tipo de forma.

Sub SelectRow() 
 ActiveDocument.Pages(2).Shapes(1).Table.Rows(1).Cells.Select 
End Sub

En este ejemplo se establece el relleno de todas las filas pares y se borra el relleno de todas las filas impares de la tabla especificada. En este ejemplo se supone que la forma especificada es una tabla y no otro tipo de forma.

Sub FillCellsByRow() 
 Dim shpTable As Shape 
 Dim rowTable As Row 
 Dim celTable As Cell 
 
 Set shpTable = ActiveDocument.Pages(2).Shapes(1) 
 For Each rowTable In shpTable.Table.Rows 
 For Each celTable In rowTable.Cells 
 If celTable.Row Mod 2 = 0 Then 
 celTable.Fill.ForeColor.RGB = RGB _ 
 (Red:=180, Green:=180, Blue:=180) 
 Else 
 celTable.Fill.ForeColor.RGB = RGB _ 
 (Red:=255, Green:=255, Blue:=255) 
 End If 
 Next celTable 
 Next rowTable 
 
End Sub

Este ejemplo agrega una fila 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 NewRow() 
 Dim rowNew As Row 
 
 Set rowNew = ActiveDocument.Pages(2).Shapes(1).Table.Rows _ 
 .Add(BeforeRow:=3) 
 With rowNew 
 .Height = 2 
 .Cells.Merge 
 .Cells(1).Fill.ForeColor.RGB = RGB(Red:=0, Green:=0, Blue:=0) 
 End With 
End Sub

En este ejemplo se elimina la fila agregada en el ejemplo anterior.

Sub DeleteRow() 
 ActiveDocument.Pages(2).Shapes(1).Table.Rows(3).Delete 
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