Jacie a écrit qu’elle avait créé une macro qui définissait le texte sur Times New Roman. Elle voulait changer la macro pour être une bascule entre Times New Roman et Arial Narrow Bold et se demandait comment le faire.

Le moyen le plus simple de le faire dans une macro consiste simplement à vérifier la police utilisée dans le texte sélectionné, puis à suivre les étapes en fonction de ce que vous trouvez. Par exemple, la macro suivante n’agira que si le texte sélectionné est Times New Roman ou Arial Narrow:

Sub ChangeSelectedFont()

Select Case Selection.Font.Name         Case "Times New Roman"

Selection.Font.Name = "Arial Narrow"

Selection.Font.Bold = True         Case "Arial Narrow"

Selection.Font.Name = "Times New Roman"

Selection.Font.Bold = False     End Select End Sub

Il existe cependant une méthode différente, non macro, qui peut avoir du sens.

Pourquoi ne pas utiliser des styles? Vous pouvez définir des styles pour englober les attributs de mise en forme souhaités. Par exemple, vous pouvez définir un style utilisant Times New Roman et un autre utilisant Arial Narrow Bold. Vous pouvez appliquer les styles à volonté et vous pouvez même rechercher et remplacer en utilisant les styles.

_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 (1053) s’applique à Microsoft Word 2007, 2010, 2013, 2016, 2019 et Word dans Office 365. Vous pouvez trouver une version de cette astuce pour le ancienne interface de menu de Word ici:

link: / word-Toggling_Font_Assignments_in_a_Macro [Basculer les attributions de polices dans une macro].