Il arrive souvent que vos besoins de mise en forme nécessitent de définir un onglet droit dans la marge droite et de vous assurer qu’il comporte un trait de soulignement ou une ligne de départ. Ceci est fait assez souvent si vous créez des formulaires disposés «manuellement». La définition de tels onglets peut cependant être un problème, car elle implique l’utilisation des boîtes de dialogue ou du ruban et des actions répétitives.

Si vous définissez un certain nombre de ces onglets, vous pourriez être intéressé par la macro RightTab VBA illustrée ci-dessous. Lorsqu’il est exécuté, il examine chaque paragraphe que vous avez sélectionné, efface tous leurs taquets de tabulation et définit un seul onglet droit dans la marge droite avec un trait de soulignement.

Sub RightTab()

Dim MarPos As Integer, NewPos As Integer     Dim ThisPar As Paragraph

MarPos = Selection.PageSetup.PageWidth - _       Selection.PageSetup.LeftMargin - _       Selection.PageSetup.RightMargin - _       Selection.PageSetup.Gutter

Set myrange = Selection.Range     For Each ThisPar In myrange.Paragraphs         NewPos = MarPos - ThisPar.RightIndent         ThisPar.TabStops.ClearAll         ThisPar.TabStops.Add Position:=NewPos, _           Alignment:=wdAlignTabRight, _           Leader:=wdTabLeaderLines     Next ThisPar End Sub

La macro fonctionnera même si les paragraphes sélectionnés ont des marges droites différentes les uns des autres. Il prend également en compte la configuration de votre page actuelle.

Si vous ne souhaitez pas que la macro supprime tous les taquets de tabulation déjà définis dans les paragraphes sélectionnés, supprimez la ligne qui utilise la méthode ClearAll.

Si vous souhaitez utiliser des points de repère sur l’onglet au lieu de traits de soulignement, remplacez le nom de la constante wdTabLeaderLines par wdTabLeaderDots.

_Note: _

Si vous souhaitez savoir comment utiliser les macros décrites sur cette page (ou sur toute autre page des sites WordTips), j’ai préparé une page spéciale qui comprend des informations utiles.

lien: / wordribbon-WordTipsMacros [Cliquez ici pour ouvrir cette page spéciale dans un nouvel onglet de navigateur].

WordTips est votre source pour une formation Microsoft Word rentable.

(Microsoft Word est le logiciel de traitement de texte le plus populaire au monde.) Cette astuce (1875) s’applique à Microsoft Word 97, 2000, 2002 et 2003. Vous pouvez trouver une version de cette astuce pour l’interface ruban de Word (Word 2007 et plus tard) ici:

link: / wordribbon-Automatically_Setting_Right_Leader_Tabs [Définition automatique des onglets de leader droit].