Propriedade Table.TableDirection (Publisher)

Retorna ou define uma constante PbTableDirectionType que representa se o texto em uma tabela é lido da esquerda para a direita ou da direita para a esquerda. Leitura/gravação.

Sintaxe

expressão. TableDirection

Expressão Uma variável que representa um objeto Table .

Valor de retorno

PbTableDirectionType

Comentários

O valor da propriedade TableDirection pode ser uma das constantes PbTableDirectionType declaradas na biblioteca de tipos do Microsoft Publisher: pbTableDirectionLeftToRight ou pbTableDirectionRightToLeft.

Exemplo

Este exemplo insere um número de negrito em cada célula na tabela especificada e define a direção da tabela de forma que as células sejam numeradas da direita para a esquerda. Para que o exemplo funcione, a forma especificada deve ser uma tabela.

Sub CountCellsByColumn() 
 Dim tblTable As Table 
 Dim rowTable As row 
 Dim celTable As Cell 
 Dim intCount As Integer 
 
 Set tblTable = ActiveDocument.Pages(1).Shapes(1).Table 
 
 'Loops through each row in the table 
 For Each rowTable In tblTable.Rows 
 
 'Loops through each cell in the row 
 For Each celTable In rowTable.Cells 
 With celTable.TextRange 
 intCount = intCount + 1 
 .Text = intCount 
 .ParagraphFormat.Alignment = _ 
 pbParagraphAlignmentCenter 
 .Font.Bold = msoTrue 
 End With 
 Next celTable 
 Next rowTable 
 tblTable.TableDirection = pbTableDirectionRightToLeft 
End Sub

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.