Lire en anglais

Partager via


Objet TabStops (Word)

Collection d'objets TabStop qui représentent personnalisés et par défaut des onglets d'un paragraphe ou d'un groupe de paragraphes.

Remarques

Utilisez la propriété TabStops pour renvoyer la collection TabStops. L'exemple suivant efface tous les taquets de tabulation personnalisés du premier paragraphe du document actif.

ActiveDocument.Paragraphs(1).TabStops.ClearAll

L'exemple suivant ajoute un taquet de tabulation positionné à 2,5 pouces pour les paragraphes sélectionnés et puis affiche la position de chaque élément dans la collection TabStops.

Selection.Paragraphs.TabStops.Add Position:=InchesToPoints(2.5) 
For Each aTab In Selection.Paragraphs.TabStops 
 MsgBox "Position = " _ 
 & PointsToInches(aTab.Position) & " inches" 
Next aTab

Utilisez la méthode Add pour ajouter un taquet de tabulation. L'exemple suivant ajoute deux taquets de tabulation aux paragraphes sélectionnés. Le premier taquet de tabulation est une tabulation alignée à gauche avec pointillés positionné à 1 pouce (72 points). La deuxième tabulation est centrée et est positionnée à 2 pouces.

With Selection.Paragraphs.TabStops 
 .Add Position:=InchesToPoints(1), _ 
 Leader:=wdTabLeaderDots, Alignment:=wdAlignTabLeft 
 .Add Position:=InchesToPoints(2), Alignment:=wdAlignTabCenter 
End With

Vous pouvez également ajouter un taquet de tabulation en spécifiant un emplacement avec la propriété TabStops. L'exemple suivant ajoute un taquet de tabulation aligné à droite à 2 pouces pour les paragraphes sélectionnés.

Selection.Paragraphs.TabStops(InchesToPoints(2)) _ 
 .Alignment = wdAlignTabRight

Utilisez TabStops (Index), où Index est l'emplacement de la tabulation (en points) ou le numéro d'index, pour renvoyer un seul objet TabStop. Taquets de tabulation sont indexés numériquement de gauche à droite le long de la règle. L'exemple suivant supprime le premier taquet de tabulation personnalisé du premier paragraphe du document actif.

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

L'exemple suivant montre comment ajouter un taquet de tabulation aligné à droite et positionné à 2 pouces (5 cm) des paragraphes sélectionnés.

Selection.Paragraphs.TabStops(InchesToPoints(2)) _ 
 .Alignment = wdAlignTabRight

Lors de l'utilisation de la collection Paragraphs (ou une plage de plusieurs paragraphes), vous devez modifier chaque paragraphe de la collection séparément si les taquets de tabulation ne sont pas identiques dans tous les paragraphes. L'exemple suivant supprime l'onglet positionné au niveau de chaque paragraphe du document actif à 1 pouce.

For Each para In ActiveDocument.Content.Paragraphs 
 para.TabStops(InchesToPoints(1)).Clear 
Next para

Voir aussi

Référence du modèle objet Word

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.