Clase TextColumn (Word VBA)

La clase TextColumn representa una sola columna de texto.

El principal procedimiento de la clase TextColumn es TextColumns.Add

Set

Para usar una variable de clase TextColumn, primero debe ser instanciado, por ejemplo

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

Los siguientes procedimientos se pueden usar para establecer variables de clase TextColumn : TextColumns.Add, TextColumns.Item y PageSetup.TextColumns

For Each

A continuación, se muestra un ejemplo de cómo procesar los elementos TextColumn en una colección.

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

Métodos

Este es el método principal de la clase TextColumn

TextColumns.Add - Devuelve un objeto TextColumn que representa una nueva columna de texto agregada a una sección o documento.

Dim tcn As TextColumn
Set tcn = ActiveDocument.PageSetup.TextColumns.Add()

Propiedades

Parent Devuelve un objeto Object que representa el objeto primario del objeto TextColumn especificado.

Dim objParent As Object
Set objParent = ActiveDocument.PageSetup.TextColumns(1).Parent

SpaceAfter Devuelve o establece la cantidad de espaciado (en puntos) después de la columna de texto o del párrafo especificada.

ActiveDocument.PageSetup.TextColumns(1).SpaceAfter =

Width Devuelve o establece el ancho, en puntos, de las columnas de texto especificadas.

ActiveDocument.PageSetup.TextColumns(1).Width =

TextColumns.Count Devuelve un Long que representa el número de columnas de texto de la colección.

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

TextColumns.EvenlySpaced True si las columnas de texto tengan un espaciado uniforme.

ActiveDocument.PageSetup.TextColumns.EvenlySpaced =

TextColumns.FlowDirection Devuelve o establece la dirección en que fluye el texto desde una columna de texto a la siguiente.

ActiveDocument.PageSetup.TextColumns.FlowDirection = wdFlowLtr

TextColumns.LineBetween True si aparecen líneas verticales entre todas las columnas de la colección TextColumns.

ActiveDocument.PageSetup.TextColumns.LineBetween =

TextColumns.Parent Devuelve un objeto Object que representa el objeto primario del objeto TextColumns especificado.

Dim objParent As Object
Set objParent = ActiveDocument.PageSetup.TextColumns.Parent

TextColumns.Spacing Devuelve o establece el espaciado (en puntos) entre columnas.

ActiveDocument.PageSetup.TextColumns.Spacing =

TextColumns.Width Devuelve o establece el ancho de la Word art efectos de texto, en puntos.

ActiveDocument.PageSetup.TextColumns.Width =