发布服务器) (行对象
表示表中的行。 行 对象所在 行 集合。 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 支持和反馈,获取有关如何接收支持和提供反馈的指南。