Classe TextColumns (Word VBA)

Para usar uma variável de classe TextColumns, ela primeiro precisa ser instanciada por exemplo

Dim tcs as TextColumns
Set tcs = ActiveDocument.PageSetup.TextColumns

For Each

Aqui está um exemplo de processamento dos itens TextColumns em uma coleção.

Dim tcn As TextColumn
For Each tcn In ActiveDocument.PageSetup.TextColumns
	
Next tcn

Add

Retorna um objeto TextColumn que representa uma nova coluna de texto adicionada a uma seção ou um documento.

Add (Width, Spacing, EvenlySpaced)

Set myDoc = Documents.Add 
myDoc.PageSetup.TextColumns.Add Width:=InchesToPoints(2.5), _ 
 Spacing:=InchesToPoints(0.5), EvenlySpaced:=False

Arguments

Optional arguments

Os seguintes argumentos são opcionais

Width (Long) - A largura da nova coluna de texto do documento, em pontos.

Spacing (Long) - O espaçamento entre as colunas de texto no documento, em pontos.

EvenlySpaced (Boolean) - True para espaçar uniformemente todas as colunas de texto seja no documento.

Count

Retorna um Long que representa o número de colunas de texto na coleção. Somente leitura.

Dim lngCount As Long
lngCount = ActiveDocument.PageSetup.TextColumns.Count

EvenlySpaced

True se as colunas de texto fiquem uniformemente espaçadas. Long de leitura/gravação.

A propriedade EvenlySpaced pode ser True, False ou wdUndefined. Se você definir o espaçamento ou a propriedade Width do objeto TextColumns, a propriedade EvenlySpaced é automaticamente definida como True. Além disso, a configuração da propriedade EvenlySpaced pode alterar as configurações das propriedades de espaçamento e a largura do objeto TextColumns.

Dim colTextColumns 
 
Set colTextColumns = ActiveDocument.PageSetup.TextColumns 
 
If colTextColumns.Count > 1 Then _ 
 colTextColumns.EvenlySpaced = True 
End If

FlowDirection

Retorna ou define a direção na qual o texto flui de uma coluna de texto para a próxima. Leitura/gravação WdFlowDirection. Os valores de retorno possíveis são wdFlowLtr - O texto nas colunas flui da esquerda para a direita, wdFlowRtl - O texto nas colunas flui da direita para a esquerda.

ActiveDocument.PageSetup.TextColumns.FlowDirection = _ 
 wdFlowRtl

Item

Retorna um objeto TextColumn individual em uma coleção.

Item (Index)

Index: O objeto individual a ser retornado. Pode ser um Long que indica a posição ordinal do objeto individual.

Dim tcn As TextColumn
Set tcn = ActiveDocument.PageSetup.TextColumns(Index:=1)

LineBetween

True se linhas verticais aparecerem entre todas as colunas na coleção TextColumns. Long de leitura/gravação.

A propriedade LineBetween pode ser True, False ou wdUndefined.

i = 1 
For each s in ActiveDocument.Sections 
 If s.PageSetup.TextColumns.LineBetween = True Then 
 MsgBox "The columns in section " & i & " contain lines." 
 End If 
 i = i + 1 
Next s

SetCount

Organiza texto no número especificado de colunas de texto.

Você também pode usar o método Add para adicionar uma única coluna à coleção TextColumns.

SetCount (NumColumns)

NumColumns: O número de colunas nas quais o texto será organizado.

ActiveDocument.PageSetup.TextColumns.SetCount NumColumns:=2

Spacing

Retorna ou define o espaçamento em pontos entre as colunas. Leitura/gravação única.

Após essa propriedade ter sido definida para um objeto TextColumns, a propriedade EvenlySpaced é definida como true. Para retornar ou definir o espaçamento de uma única coluna de texto quando EvenlySpaced for False, use a propriedade SpaceAfter do objeto TextColumn.

With ActiveDocument.PageSetup.TextColumns 
 .SetCount NumColumns:=2 
 .LineBetween = False 
 .EvenlySpaced = True 
 .Spacing = 36 
End With

Width

Retorna ou define a largura da arte Word efeitos de texto, em pontos. Long de leitura/gravação.

ActiveDocument.PageSetup.TextColumns.Width =