Macro VB - VB/VBA/VBS - Programmation
Marsh Posté le 20-06-2011 à 13:16:41
Salut,voir sur http://benread.net/tools/Macros-Word-Annotation.htm Add brackets around selection
Marsh Posté le 20-06-2011 à 17:20:27
C'est merveilleux, fantastique, extraordinaire !!!!!! Ca fonctionne à merveille !!!!!
Je n'ai eu à ajouter que le bold et le highlight et c'est plus que parfait. Mille fois MERCI Kiki.
En plus, le site que tu as mis en référence est excellent. On y retrouve plein de macros vraiment utiles.
Encore merci
Marsh Posté le 20-06-2011 à 17:31:40
Salut,un autre lien http://word.mvps.org/index.html
Marsh Posté le 20-06-2011 à 17:57:42
Ca, c'est du contenu !!!! Merci beaucoup, beaucoup, beaucoup. Y'a plusieurs plusieurs années, j'me débrouillais très bien avec les macros de WordPerfect mais avec Word je n'ai jamais pris le temps de comprendre et d'apprendre VB. J'veux m'y mettre sérieusement parce que ça rend le travail drôlement plus intéressant. Avec les références que tu m'as fournies, j'ai en plein ce qu'il me faut pour apprendre. Merci vraiment beaucoup ! C'est très motivant tout ça !
Marsh Posté le 20-06-2011 à 08:29:22
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