Word 2013 traquer les phrases longues
Résolu
tw974
Messages postés
80
Date d'inscription
Statut
Membre
Dernière intervention
-
tw974 Messages postés 80 Date d'inscription Statut Membre Dernière intervention -
tw974 Messages postés 80 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
J'aimerais trouver directement les phrases de plus de 25 mots.
J'ai trouvé des macros mais je ne parviens pas à l'exécuter j'ai un message d'erreur. "impossible d'exécuter le code en mode arrêt".
Pourriez-vous m'indiquer les étapes ? Svp merci.
Public Sub SurligneLonguesPhrases()
Dim Phrase As Range
For Each Phrase In ActiveDocument.Content.Sentences
If Phrase.Words.Count > 25 Then
Phrase.HighlightColorIndex = wdPink
End If
Next Phrase
J'aimerais trouver directement les phrases de plus de 25 mots.
J'ai trouvé des macros mais je ne parviens pas à l'exécuter j'ai un message d'erreur. "impossible d'exécuter le code en mode arrêt".
Pourriez-vous m'indiquer les étapes ? Svp merci.
Public Sub SurligneLonguesPhrases()
Dim Phrase As Range
For Each Phrase In ActiveDocument.Content.Sentences
If Phrase.Words.Count > 25 Then
Phrase.HighlightColorIndex = wdPink
End If
Next Phrase
A voir également:
- Word 2013 traquer les phrases longues
- Word 2013 - Télécharger - Traitement de texte
- Excel 2013 - Télécharger - Tableur
- Tableau word - Guide
- Powerpoint 2013 - Télécharger - Présentation
- Espace insécable word - Guide
2 réponses
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
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
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.
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