Ler em inglês

Compartilhar via


Objeto Row (Publisher)

Representa uma linha em uma tabela. O objeto Row é um membro das linhas coleção. A coleção de linhas inclui todas as linhas em uma tabela especificada.

Comentários

Use Linhas (índice), em que o índice é o número da linha, para retornar um único objeto Row . O número de índice representa a posição da linha da coleção Rows (contando da esquerda para direita).

Use o método de Item de um linhas coleção, para retornar um objeto Row.

Use a Adicionar método para adicionar uma linha a uma tabela.

Use a Excluir método para excluir uma linha de uma tabela.

Exemplo

Este exemplo seleciona a primeira linha na primeira forma na segunda página da publicação ativa. Este exemplo pressupõe que a forma especificada seja uma tabela e não outro tipo de forma.

Sub SelectRow() 
 ActiveDocument.Pages(2).Shapes(1).Table.Rows(1).Cells.Select 
End Sub

Este exemplo define o preenchimento para todas as linhas com numeração uniforme e limpa o preenchimento de todas as linhas com numeração ímpar na tabela especificada. Este exemplo pressupõe que a forma especificada seja 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

Este exemplo adiciona uma linha à tabela especificada na segunda página da publicação ativa, em seguida, ajusta a largura, mescla as células e define a cor de preenchimento. Este exemplo pressupõe que a primeira forma seja uma tabela e não outro tipo de forma.

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

Este exemplo exclui a linha adicionada no exemplo anterior.

Sub DeleteRow() 
 ActiveDocument.Pages(2).Shapes(1).Table.Rows(3).Delete 
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.