Propiedad Table.Rows (Publisher)

Devuelve una colección Rows que representa todas las filas de tabla del intervalo, la selección o la tabla.

Sintaxis

expresión. Filas

expresión Variable que representa un objeto Table .

Observaciones

Para obtener información sobre cómo devolver un único miembro de una colección, vea Devolver un objeto de una colección.

Ejemplo

En este ejemplo se establece el relleno de todas las filas numeradas pares y borra el relleno de todas las filas numeradas 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(1).Shapes _ 
 .AddTable(NumRows:=5, NumColumns:=5, Left:=100, _ 
 Top:=100, Width:=100, Height:=12) 
 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

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.