通过

发布服务器) (Rows 对象

  • 项目

行 的集合 对象，表示表中的行。

备注

使用 Table 对象的 Rows 属性可返回 Rows 集合。

使用 Rows (索引) （其中 index 为索引号）返回单个 Row 对象。 索引号代表 （按从左到右计数） 的 Rows 集合中的行位置。

示例

以下示例显示活动文档中第一个表格的 Rows 集合中 Row 对象的数量。

Sub CountRows() 
 MsgBox ActiveDocument.Pages(2).Shapes(1).Table.Rows.Count 
End Sub

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

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

下面的示例选择指定表格中的第三行。

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

方法

属性

另请参阅

支持和反馈

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