閱讀英文

共用方式為


發行者) (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 支援與意見反應