使用英语阅读

通过


发布服务器) (行对象

表示表中的行。 对象所在 集合。 Rows 集合包含指定表中的所有行。

备注

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

使用 Item 方法的 要返回 Row 对象的集合。

使用 添加 将行添加到表的方法。

使用 删除 若要从表中删除行的方法。

示例

本示例选择当前出版物第二页上第一个形状中的第一行。 此示例假定指定的形状是表格,而不是其他类型的形状。

Sub SelectRow() 
 ActiveDocument.Pages(2).Shapes(1).Table.Rows(1).Cells.Select 
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 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

此示例删除在上一个示例中添加的行。

Sub DeleteRow() 
 ActiveDocument.Pages(2).Shapes(1).Table.Rows(3).Delete 
End Sub

方法

属性

另请参阅

支持和反馈

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