Objet TabStops (Publisher)

Article
04/07/2023

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é ParagraphFormat.Tabs pour renvoyer la collection TabStops . Utilisez Tabs (index), où index est l’emplacement du taquet de 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.

Utilisez la méthode Add pour ajouter un taquet de tabulation.

Exemple

L'exemple suivant efface tous les taquets de tabulation personnalisés du premier paragraphe de la composition active.

Sub ClearAllTabStops() 
 ActiveDocument.Pages(1).Shapes(1).TextFrame.TextRange _ 
 .ParagraphFormat.Tabs.ClearAll 
End Sub

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

Sub Tabs() 
 Dim intTab As Integer 
 Selection.TextRange.ParagraphFormat.Tabs _ 
 .Add Position:=InchesToPoints(2.5), _ 
 Alignment:=pbTabAlignmentLeading, Leader:=pbTabLeaderNone 
 With Selection.TextRange.ParagraphFormat 
 For intTab = 1 To .Tabs.Count 
 MsgBox "Position = " & PointsToInches _ 
 (.Tabs(intTab).Position) & " inches" 
 intTab = intTab + 1 
 Next intTab 
 End With 
End Sub

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.

Sub AddNewTabs() 
 With Selection.TextRange.ParagraphFormat.Tabs 
 .Add Position:=InchesToPoints(1), _ 
 Leader:=pbTabLeaderDot, Alignment:=pbTabAlignmentLeading 
 .Add Position:=InchesToPoints(2), _ 
 Leader:=pbTabLeaderNone, Alignment:=pbTabAlignmentCenter 
 End With 
End Sub

L'exemple suivant supprime le premier taquet de tabulation personnalisé du premier paragraphe de la composition active.

Sub ClearTabStop() 
 ActiveDocument.Pages(1).Shapes(1).TextFrame.TextRange _ 
 .ParagraphFormat.Tabs(1).Clear 
End Sub

L'exemple ci-dessous montre comment remplacer la deuxième tabulation dans la sélection par un taquet de tabulation aligné à droite.

Sub ChangeTabStop() 
 Selection.TextRange.ParagraphFormat.Tabs(2) _ 
 .Alignment = pbTabAlignmentTrailing 
End Sub

Méthodes

Propriétés

Voir aussi

Référence du modèle objet Publisher

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.

Partager via