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.
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
Référence du modèle objet Word
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.