發行者) (Row 物件
代表表格列。 Row 物件是 列 的成員 集合。 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 支援與意見反應。