Classe TabStop - un taquet de tabulation (Word VBA)

La classe TabStop représente un taquet de tabulation.

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

Dim tsp as TabStop
Set tsp = ActiveDocument.Paragraphs(1).TabStops(Index:=1)

Les procédures suivantes peuvent être utilisés pour définir des variables de la classe TabStop : Next, Previous, TabStops.Add, TabStops.After, TabStops.Before et TabStops.Item.

For Each

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

Dim ts As TabStop 
For each ts in ActiveDocument.Paragraphs(1).TabStops 
 If ts.CustomTab = True Then 
 ts.Alignment = wdAlignTabLeft 
 End If 
Next ts

Alignment

Cette propriété renvoie ou définit une constante WdTabAlignment qui représente l’alignement du taquet de tabulation spécifié. Les valeurs de retour 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.

Sub CenterTabStop() 
 ActiveDocument.Paragraphs(1).TabStops(1) _ 
 .Alignment = wdAlignTabCenter 
End Sub

Clear

Supprime le taquet de tabulation personnalisé spécifié.

ActiveDocument.Paragraphs(1).TabStops(1).Clear

CustomTab

True si le taquet de tabulation spécifié est un taquet de tabulation personnalisé.

Dim tsLoop As TabStop 
 
For each tsLoop in ActiveDocument.Paragraphs(1).TabStops 
 If tsLoop.CustomTab = True Then 
 tsLoop.Alignment = wdAlignTabLeft 
 End If 
Next tsLoop

Leader

Cette propriété renvoie ou définit l'organisateur de l'objet TabStop spécifié. Les valeurs de retour possibles sont wdTabLeaderDashes - Tirets, wdTabLeaderDots - Points, wdTabLeaderHeavy - Trait épais, wdTabLeaderLines - Lignes doubles, wdTabLeaderMiddleDot - Point médian, wdTabLeaderSpaces - Espaces.

Dim tsLoop As TabStop 
 
For each tsLoop in ActiveDocument.Paragraphs.TabStops 
 If tsLoop.Leader <> wdTabLeaderSpaces Then 
 tsLoop.Leader = wdTabLeaderDashes 
 End If 
Next tsLoop

Next

Renvoie l'objet TabStop suivant de la collection.

Dim tspNext As TabStop
Set tspNext = ActiveDocument.Lists(1).ListParagraphs(1).TabStops(1).Next

Position

Renvoie ou définit la position d’un taquet de tabulation par rapport à la marge gauche.

With Selection.Paragraphs.TabStops 
 .ClearAll 
 .Add Position:=InchesToPoints(2), Alignment:=wdAlignTabRight 
 MsgBox .Item(1).Position & " or " & _ 
 PointsToInches(.Item(1).Position) & " inches" 
End With

Previous

Renvoie l'objet TabStop précédent de la collection.

Dim tspPrevious As TabStop
Set tspPrevious = ActiveDocument.Lists(1).ListParagraphs(1).TabStops(1).Previous