Classe TabStop (Word VBA)

La classe TabStop représente un taquet de tabulation.

La procédure principale de la classe TabStop est TabStops.Add

Set

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.Item, TabStops.After, TabStops.Before, Paragraph.TabStops, ParagraphFormat.TabStops et Paragraphs.TabStops

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

Méthodes

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

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

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

Propriétés

Alignment Cette propriété renvoie ou définit une constante WdTabAlignment qui représente l’alignement du taquet de tabulation spécifié.

ActiveDocument.Lists(1).ListParagraphs(1).TabStops(1).Alignment = wdAlignTabBar

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

Dim booCustomTab As Boolean
booCustomTab = ActiveDocument.Lists(1).ListParagraphs(1).TabStops(1).CustomTab

Leader Cette propriété renvoie ou définit l'organisateur de l'objet TabStop spécifié.

ActiveDocument.Lists(1).ListParagraphs(1).TabStops(1).Leader = wdTabLeaderDashes

Next Renvoie l'objet TabStop suivant de la collection.

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

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

Dim objParent As Object
Set objParent = ActiveDocument.Lists(1).ListParagraphs(1).TabStops(1).Parent

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

ActiveDocument.Lists(1).ListParagraphs(1).TabStops(1).Position =

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

TabStops.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

TabStops.Parent Renvoie un type de données Object qui représente l'objet parent de l'objet TabStops spécifié.

Dim objParent As Object
Set objParent = ActiveDocument.Lists(1).ListParagraphs(1).TabStops.Parent