Classe TabStops (Word VBA)

Collection d’objets TabStop qui représentent les tabulations personnalisées et par défaut d’un paragraphe ou d’un groupe de paragraphes. Pour utiliser une variable de classe TabStops, elle doit d'abord être instanciée, par exemple


Dim tss as TabStops
Set tss = ActiveDocument.Paragraphs(1).TabStops

For Each

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


Dim tsp As TabStop
For Each tsp In ActiveDocument.Lists(1).ListParagraphs(1).TabStops
	
Next tsp

Add

Renvoie un objet TabStop qui représente un taquet de tabulation personnalisé ajouté à un document.

Add (Position, Alignment, Leader)


Selection.Paragraphs.TabStops.Add Position:=InchesToPoints(2.5)

Arguments

Un argument nommé

Position (Single) - Position du taquet de tabulation (exprimée en points) par rapport à la marge de gauche.

Optional arguments

Les arguments suivants sont facultatifs

Alignment - WdTabAlignment

Valeurs possibles sont

wdAlignTabBar	Aligné sur le taquet.
wdAlignTabCenter	Aligné au centre.
wdAlignTabDecimal	Aligné sur les décimales.
wdAlignTabLeft	Aligné à gauche.
wdAlignTabList	Aligné sur la liste.
wdAlignTabRight	Aligné à droite.

Leader (WdTabLeader) - Type de points de suite pour le taquet de tabulation.

Valeurs possibles sont

wdTabLeaderDashes	Tirets.
wdTabLeaderDots	Points.
wdTabLeaderHeavy	Trait épais.
wdTabLeaderLines	Lignes doubles.
wdTabLeaderMiddleDot	Point médian.
wdTabLeaderSpaces	Espaces.

After

Renvoie le prochain objet TabStop situé à droite de position.

After (Position)

Position: Spécifie une position sur la règle, exprimée en points.


Dim tabTemp as TabStop 
 
Set tabTemp = ActiveDocument.Paragraphs(1).TabStops _ 
 .After(InchesToPoints(1)) 
 
tabTemp.Alignment = wdAlignTabCenter

Before

Renvoie le prochain objet TabStop situé à gauche de position.

Before (Position)

Position: Spécifie une position sur la règle, exprimée en points.


Dim tsTemp As TabStop 
 
Set tsTemp = ActiveDocument.Paragraphs(1) _ 
 .TabStops.Before(InchesToPoints(2)) 
tsTemp.Alignment = wdAlignTabCenter

ClearAll

Supprime tous les taquets de tabulation personnalisés des paragraphes spécifiés.

Pour effacer un taquet de tabulation donné, utilisez la méthode Clear de l'objet TabStop.


ActiveDocument.Paragraphs.TabStops.ClearAll

Count

Renvoie un type long qui représente le nombre de taquets de tabulation dans la collection.


Dim lngCount As Long
lngCount = ActiveDocument.Lists(1).ListParagraphs(1).TabStops.Count

Item

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

Item (Index)

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


Dim tsp As TabStop
Set tsp = ActiveDocument.Lists(1).ListParagraphs(1).TabStops(Index:=1)