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
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.
Comentários
https://aka.ms/ContentUserFeedback.
Em breve: Ao longo de 2024, eliminaremos os problemas do GitHub como o mecanismo de comentários para conteúdo e o substituiremos por um novo sistema de comentários. Para obter mais informações, consulteEnviar e exibir comentários de