Объект Rows (издатель)
Коллекция объектов Row , представляющих строки в таблице.
Используйте свойство Rows объекта Table , чтобы вернуть коллекцию Rows .
Используйте rows (index), где index — это номер индекса, чтобы вернуть один объект Row . Номер индекса представляет позицию строки в коллекции Rows (подсчет слева направо).
В следующем примере отображается количество объектов Row в коллекции Rows для первой таблицы активного документа.
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 и обратная связь.