Observação
O acesso a essa página exige autorização. Você pode tentar entrar ou alterar diretórios.
O acesso a essa página exige autorização. Você pode tentar alterar os diretórios.
Uma coleção de linha objetos que representam as linhas em uma tabela.
Comentários
Use as linhas propriedade da tabela objeto para retornar a coleção de linhas.
Utilize Linhas (índice), em que o índice é o número do índice, para devolver um único objeto Linha . O número de índice representa a posição da linha da coleção Rows (contando da esquerda para direita).
Exemplo
O exemplo a seguir exibe o número de objetos Row da coleção de linhas da primeira tabela do documento ativo.
Sub CountRows()
MsgBox ActiveDocument.Pages(2).Shapes(1).Table.Rows.Count
End Sub
Este exemplo define o preenchimento de todas as linhas pares e limpa o preenchimento de todas as linhas ímpares na tabela especificada. Este exemplo pressupõe que a forma especificada é uma tabela e não outro tipo de forma.
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
O exemplo a seguir seleciona a terceira linha da tabela especificada.
Sub SelectRows()
ActiveDocument.Pages(2).Shapes(1).Table.Rows(3).Cells.Select
End Sub
Métodos
Propriedades
Confira também
Suporte e comentários
Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.