发布服务器) (Table.Rows 属性

返回一个 Rows 集合，该集合代表某个区域、选定内容或表格中所有的表格行。

语法

表达式。行

表达 一个代表 Table 对象的变量。

备注

有关返回集合的单个成员的信息，请参阅 从集合中返回对象。

示例

本示例为指定表格中所有编号为偶数的行输入填充，并清除所有编号为奇数的行的填充。 此示例假定指定的形状是表格，而不是其他类型的形状。

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

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。