代表表格列。 Row 物件是 列 的成員 集合。 Rows 集合中指定的表格包含的所有資料列。
註解
使用 Rows (index) ，其中 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 支援與意見反應。