Word 2013 traquer les phrases longues
Résolu/Fermé
tw974
Messages postés
78
Date d'inscription
mardi 6 décembre 2011
Statut
Membre
Dernière intervention
31 mai 2019
-
22 août 2015 à 14:25
tw974 Messages postés 78 Date d'inscription mardi 6 décembre 2011 Statut Membre Dernière intervention 31 mai 2019 - 23 août 2015 à 09:32
tw974 Messages postés 78 Date d'inscription mardi 6 décembre 2011 Statut Membre Dernière intervention 31 mai 2019 - 23 août 2015 à 09:32
A voir également:
- Word 2013 traquer les phrases longues
- Word 2013 free download - Télécharger - Traitement de texte
- Supprimer une page word - Guide
- Espace insécable word - Guide
- Organigramme word - Guide
- Powerpoint 2013 - Télécharger - Présentation
2 réponses
m@rina
Messages postés
20443
Date d'inscription
mardi 12 juin 2007
Statut
Contributeur
Dernière intervention
30 juin 2024
11 300
22 août 2015 à 14:54
22 août 2015 à 14:54
Bonjour,
Cette macro est très bien... (hormis qu'il manque le ENd Sub à la fin mais je suppose que tu l'as simplement omis ici).
Si tu as le message que tu es en code Arrêt, ça doit être vrai ! :)
Affiche la macro et clique sur Réinitialiser (Menu Exécution).
m@rina
Cette macro est très bien... (hormis qu'il manque le ENd Sub à la fin mais je suppose que tu l'as simplement omis ici).
Si tu as le message que tu es en code Arrêt, ça doit être vrai ! :)
Affiche la macro et clique sur Réinitialiser (Menu Exécution).
m@rina
C-Claire
Messages postés
4014
Date d'inscription
samedi 8 novembre 2014
Statut
Membre
Dernière intervention
3 octobre 2016
2 224
Modifié par C-Claire le 22/08/2015 à 21:18
Modifié par C-Claire le 22/08/2015 à 21:18
Bonjour tw974,
pour utiliser la petite macro d'Anacoluthe, tu peux procéder de la façon suivante :
- depuis le document voulu, appuie sur ALT F8
- tape ou copie/colle le nom de la macro, en l'occurrence SurligneLonguesPhrases (mais tu peux donner un autre nom)
- dans le champ "Macro disponible dans", sélectionne ton document ou choisis "Normal.dot" si tu veux que cette macro soit accessible depuis tous les nouveaux documents
- clique sur le bouton "Créer"
- entre le "Sub" et le "End sub" copie/colle les lignes suivantes :
Dim Phrase As Range
For Each Phrase In ActiveDocument.Content.Sentences
If Phrase.Words.Count > 25 Then
Phrase.HighlightColorIndex = wdPink
End If
Next Phrase
- ferme la fenêtre de l'éditeur Visual Basic
Toutes les phrases de plus de 25 mots seront surlignées en rose...
Pour exécuter la macro, appuie sur ALT F8, clique sur le nom de la macro et "Exécuter".
Tu pourras affecter un raccourci à cette macro ou une icône dans la barre d'outils Accès rapide.
C-Claire
pour utiliser la petite macro d'Anacoluthe, tu peux procéder de la façon suivante :
- depuis le document voulu, appuie sur ALT F8
- tape ou copie/colle le nom de la macro, en l'occurrence SurligneLonguesPhrases (mais tu peux donner un autre nom)
- dans le champ "Macro disponible dans", sélectionne ton document ou choisis "Normal.dot" si tu veux que cette macro soit accessible depuis tous les nouveaux documents
- clique sur le bouton "Créer"
- entre le "Sub" et le "End sub" copie/colle les lignes suivantes :
Dim Phrase As Range
For Each Phrase In ActiveDocument.Content.Sentences
If Phrase.Words.Count > 25 Then
Phrase.HighlightColorIndex = wdPink
End If
Next Phrase
- ferme la fenêtre de l'éditeur Visual Basic
Toutes les phrases de plus de 25 mots seront surlignées en rose...
Pour exécuter la macro, appuie sur ALT F8, clique sur le nom de la macro et "Exécuter".
Tu pourras affecter un raccourci à cette macro ou une icône dans la barre d'outils Accès rapide.
C-Claire
tw974
Messages postés
78
Date d'inscription
mardi 6 décembre 2011
Statut
Membre
Dernière intervention
31 mai 2019
1
23 août 2015 à 09:29
23 août 2015 à 09:29
Merci infiniment pour cette explication, la macro très pratique d'Anacoluthe fonctionne !
22 août 2015 à 20:50
Par contre j'ai réinitialisé, sans succès. Pourrais-tu m'expliquer pas à pas comment enregistrer ce programme ?
C'est la première fois que j'utilise l'option macro.
23 août 2015 à 00:25
Depuis ce document, appuie sur Alt+F11 afin d'afficher l'éditeur VBA.
Insertion => Module
Tu colles toute la macro sans oublier le End Sub.
Tu peux ensuite appuyer sur F5 pour lancer la macro.
Si tu l'utilises souvent, tu peux mettre un bouton sur la barre d'outils Accès rapide.
Si tu as besoin de cette macro pour différents documents, j'ai mis les explications ici. Je conseille la deuxième solution :
https://faqword.com/index.php/word/faq-word/gestion-des-macros/858-comment-rendre-disponible-une-macro-depuis-n-importe-quel-document
m@rina
23 août 2015 à 09:32