Propriedade PageSetup.TextColumns (Word)

Retorna uma coleção TextColumns que representa o conjunto de colunas de texto para o objeto PageSetup especificado.

Sintaxe

expression. TextColumns

Expressão Uma expressão que retorna um objeto PageSetup .

Comentários

Sempre haverá pelo menos uma coluna de texto na coleção. Ao criar novas colunas de texto, você estará adicionando uma coleção de uma coluna.

Para obter informações sobre como retornar um único membro de uma coleção, consulte Retornando um objeto de uma coleção.

Exemplo

Este exemplo cria quatro colunas de texto espaçadas uniformemente que são aplicadas na seção dois do documento ativo.

With ActiveDocument.Sections(2).PageSetup.TextColumns 
 .SetCount NumColumns:=3 
 .Add EvenlySpaced:=True 
End With

Este exemplo cria um documento com duas colunas de texto. A primeira coluna tem 3,81 centímetros de largura e a segunda, 7,62 centímetros .

Set myDoc = Documents.Add 
With myDoc.PageSetup.TextColumns 
 .SetCount NumColumns:=1 
 .Add Width:=InchesToPoints(3) 
End With 
With myDoc.PageSetup.TextColumns(1) 
 .Width = InchesToPoints(1.5) 
 .SpaceAfter = InchesToPoints(0.5) 
End With

Confira também

Objeto PageSetup

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.