Lorsque je formate des documents, il m’est souvent nécessaire de mettre en forme un mot ou un passage en gras et en italique. Word inclut des outils (dans la barre d’outils Mise en forme) qui appliquent le gras et l’italique, mais pas l’italique gras. J’en ai eu assez de faire deux clics, j’ai donc créé mon propre outil pour appliquer les deux formats à la fois. La macro résultante peut ensuite être affectée à un outil de la barre d’outils, juste à côté des outils Gras et Italique.

La façon la plus simple de le faire est d’utiliser une macro comme suit:

Sub BoldItalics1()

Selection.Font.Bold = True     Selection.Font.Italic = True End Sub

Cette macro active les attributs, mais elle n’effectue aucun basculement. En d’autres termes, vous ne pouvez pas désactiver les italiques gras en utilisant la même macro, comme vous le pouvez avec les outils individuels Gras et Italique. Cela a conduit à la macro « nouvelle génération », qui vérifie l’état du texte sélectionné avant d’apporter des modifications:

Sub BoldItalics2()

Dim BIStatus As Integer

BIStatus = 0     If Selection.Font.Bold Then BIStatus = BIStatus + 1     If Selection.Font.Italic Then BIStatus = BIStatus + 1

If BIStatus = 0 Then         Selection.Font.Bold = True         Selection.Font.Italic = True     End If     If BIStatus = 1 Then         Selection.Font.Bold = True         Selection.Font.Italic = True     End If     If BIStatus = 2 Then         Selection.Font.Bold = False         Selection.Font.Italic = False     End If End Sub

Les premières lignes de la macro incrémentent une variable (BIStatus) selon que les propriétés Gras ou Italique sont définies pour la sélection. Lorsque ces lignes sont complètes, BIStatus sera égal à 0 si le texte sélectionné n’est ni gras ni italique, 1 s’il est gras ou italique, ou 2 s’il est à la fois gras et italique.

Si BIStatus est défini sur 0 ou 1, les propriétés Gras et Italique du texte sélectionné sont définies. S’ils ont été précédemment définis (BIStatus vaut 2), les deux propriétés sont désactivées.

_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 (606) 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:

lien: / wordribbon-Applying_Bold_Italics [Application de l’italique gras].