發行者) (Rows 物件
一組 資料列 代表表格中的列的物件。
使用Table物件的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 支援與意見反應。