Bonjour,
C'est en faisant une recherche sur Google que j'ai découvert ce forum. C'est toujours tellement agréable de découvrir des forums francophones !
En fait, je cherche de l'aide ou des conseils parce que j'en suis à mes débuts avec VB.
J'aimerais créer une macro qui serait exécutée dans Word 2003 ou 2007.
Le but de cette macro est de mettre le texte sélectionné entre crochets [ ], d'appliquer du gras et de surligner le texte, incluant les crochets.
Voici comment je l'ai créée :
Sub AddParens()
'
' AddParens Macro
' Ajouter parenthèses
'
Selection.InsertBefore "["
Selection.InsertAfter "]"
Selection.Font.Bold = wdToggle
Options.DefaultHighlightColorIndex = wdYellow
Selection.Range.HighlightColorIndex = wdYellow
End Sub
Toutefois, ce qui m'agace un peu, c'est que si je sélectionne le texte avec la souris, Word sélectionnera souvent mais pas toujours l'espace qui suit la dernière lettre de la sélection, donc lorsque j'exécute la macro, le crochet de fermeture s'insère après cet espace.
Examples:
1 - Les styles rapides [fournissent des commandes de réinitialisation qui vous permettent ]de toujours
2 - [apparence pour celui-ci dans la galerie Styles rapides sous l'onglet Écriture.]
Dans la première phrase, la sélection avec souris intègre l'espace et place le crochet juste après, ce qui a pour effet de supprimer l'espace avec le mot suivant.
Dans la seconde phrase, le problème ne se pose pas, puisque la sélection avec souris s'arrête au point.
J'ai pensé intégrer une commande de rechercher/remplacer mais je ne sais pas comment m'y prendre pour distinguer ces 2 possibilités. J'ai fait quelques tests et lorsque j'intégre Rechercher/Remplacer, le surlignage se prolonge alors dans l'espace que j'intègre après le dernier mot (pour le cas #1)
Est-ce que la fonction SI/IF est envisageable ? Si oui, est-ce que vous pourriez m'indiquer comment procéder ou m'orienter vers une solution ?
Un grand merci !
---------------
Danielle
