Classe TextColumns (Word VBA)

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

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

Les variables du type TextColumns peuvent être définies à l'aide de la procédure PageSetup.TextColumns

For Each

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

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

Add

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

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

Les arguments suivants sont facultatifs

Width (Long) - Largeur, exprimée en points, de la nouvelle colonne de texte du document.

Spacing (Long) - Écart, exprimé en points, existant entre les colonnes de texte du document.

EvenlySpaced (Boolean) - True : pour espacer régulièrement toutes les colonnes de texte se trouver dans le document.

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

EvenlySpaced

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

La propriété EvenlySpaced peut être True, False ou wdUndefined. Si vous définissez l'espacement ou la propriété Width de l'objet TextColumns, la propriété EvenlySpaced est automatiquement définie sur True.

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

FlowDirection

Cette propriété renvoie ou définit la direction du texte à partir d'une colonne de texte à l'autre. Les valeurs de retour possibles sont wdFlowLtr - Le texte s'enchaîne de gauche à droite dans les colonnes, wdFlowRtl - Le texte s'enchaîne de droite à gauche dans les colonnes.

ActiveDocument.PageSetup.TextColumns.FlowDirection = _ 
 wdFlowRtl

Item

Renvoie un objet TextColumn spécifique appartenant à une collection.

Item (Index)

Index: Objet spécifique qui doit être renvoyé.

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

LineBetween

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

La propriété LineBetween peut être 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

Réorganise le texte dans le nombre spécifié de colonnes de texte.

Vous pouvez également utiliser la méthode Add pour ajouter une seule colonne à la collection TextColumns.

SetCount (NumColumns)

NumColumns: Nombre de colonnes dans lesquelles le texte sera réorganisé.

ActiveDocument.PageSetup.TextColumns.SetCount NumColumns:=2

Spacing

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

Une fois que cette propriété a été définie pour un objet TextColumns , la propriété EvenlySpaced a la valeur true.

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

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 =