Propiedad Table.TableDirection (Publisher)

Devuelve o establece una constante PbTableDirectionType que representa si el texto de una tabla se lee de izquierda a derecha o de derecha a izquierda. Lectura y escritura.

Sintaxis

expresión. TableDirection

expresión Variable que representa un objeto Table .

Valor devuelto

PbTableDirectionType

Observaciones

El valor de la propiedad TableDirection puede ser una de las constantes PbTableDirectionType declaradas en la biblioteca de tipos de Microsoft Publisher: pbTableDirectionLeftToRight o pbTableDirectionRightToLeft.

Ejemplo

En este ejemplo se escribe un número en negrita en cada celda de la tabla especificada y luego se establece la dirección de la tabla de forma que las celdas se enumeren de derecha a izquierda. Para que funcione el ejemplo, la forma especificada debe ser una tabla.

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

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.