Classe TextColumn (Word VBA)

La classe TextColumn représente une seule colonne de texte.

La procédure principale de la classe TextColumn est TextColumns.Add

Set

Pour utiliser une variable de classe TextColumn, elle doit d'abord être instanciée, par exemple

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

Les procédures suivantes peuvent être utilisés pour définir des variables de la classe TextColumn : TextColumns.Add, TextColumns.Item et PageSetup.TextColumns

For Each

Voici un exemple de traitement des éléments TextColumn dans une collection

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

Méthodes

C'est la méthode principale de la classe TextColumn

TextColumns.Add - Renvoie un objet TextColumn qui représente une nouvelle colonne de texte ajoutée à une section ou un document.

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

Propriétés

Parent Renvoie un Object qui représente l'objet parent de l'objet TextColumn spécifié.

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

SpaceAfter Cette propriété renvoie ou définit l'espacement (en points) après la colonne de paragraphe ou de texte spécifiée.

ActiveDocument.PageSetup.TextColumns(1).SpaceAfter =

Width Cette propriété renvoie ou définit la largeur, exprimée en points, des colonnes de texte spécifiées.

ActiveDocument.PageSetup.TextColumns(1).Width =

TextColumns.Count Renvoie un type long qui représente le nombre de colonnes de texte dans la collection.

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

TextColumns.EvenlySpaced True si les colonnes de texte soient uniformément espacés.

ActiveDocument.PageSetup.TextColumns.EvenlySpaced =

TextColumns.FlowDirection Cette propriété renvoie ou définit la direction du texte à partir d'une colonne de texte à l'autre.

ActiveDocument.PageSetup.TextColumns.FlowDirection = wdFlowLtr

TextColumns.LineBetween True si des lignes verticales s'affichent entre toutes les colonnes de la collection TextColumns.

ActiveDocument.PageSetup.TextColumns.LineBetween =

TextColumns.Parent Renvoie un Object qui représente l'objet parent de l'objet TextColumns spécifié.

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

TextColumns.Spacing Cette propriété renvoie ou définit l'espacement (en points) entre les colonnes.

ActiveDocument.PageSetup.TextColumns.Spacing =

TextColumns.Width Cette propriété renvoie ou définit la largeur de l'objet WordArt les effets de texte, exprimée en points.

ActiveDocument.PageSetup.TextColumns.Width =