Affichage des statistiques de lisibilité uniquement (Microsoft Word)
Lorsque vous effectuez une vérification grammaticale de votre document, la toute dernière étape effectuée par Word consiste à afficher un ensemble de statistiques de lisibilité que vous pouvez utiliser pour analyser la présentation de votre contenu. Il peut arriver que vous souhaitiez afficher uniquement les statistiques de lisibilité, sans passer par la vérification grammaticale complète au préalable. Malheureusement, Word ne fournit pas un moyen de le faire. Vous pouvez cependant créer une macro qui affichera très bien les statistiques de lisibilité. Le cœur d’une telle macro serait la collection ReadabilityStatistics.
Pour avoir une idée de la manière dont une telle macro pourrait être écrite, considérez la macro sur une seule ligne suivante:
Sub CheckTest() MsgBox ActiveDocument.Content.ReadabilityStatistics(9).Value End Sub
Cette macro affiche un nombre qui représente la valeur Flesch Reading Ease, neuvième membre de la collection ReadabilityStatistics. La collection comprend 10 éléments individuels, comme suit:
Index |
Meaning |
|
1 |
Words |
|
2 |
Characters |
|
3 |
Paragraphs |
|
4 |
Sentences |
|
5 |
Sentences per Paragraph |
|
6 |
Words per Sentence |
|
7 |
Characters per Word |
|
8 |
Passive Sentences |
|
9 |
Flesch Reading Ease |
|
10 |
Flesch-Kincaid Grade Level |
Pour afficher les dix statistiques (comme ce serait le cas dans une vérification grammaticale complète de votre document), il vous suffit de faire passer votre macro à travers les différents membres de la collection et d’afficher leurs valeurs.
La macro suivante fait exactement cela:
Sub Readability() Dim DocStats As String Dim MBTitle As String Dim J As Integer MBTitle = "Readability Statistics" DocStats = "" With ActiveDocument.Content For J = 1 to 10 DocStats = DocStats & .ReadabilityStatistics(J) DocStats = DocStats & ": " DocStats = DocStats & .ReadabilityStatistics(J).Value DocStats = DocStats & vbCrLf Next J End With MsgBox DocStats, vbOKOnly, MBTitle End Sub
Lorsque vous exécutez la macro, sachez que son exécution prend un peu de temps.
En fait, en fonction de la vitesse de votre système, de la longueur de votre document et de sa complexité, son exécution peut prendre un certain temps. Sois patient; une fois les dix statistiques terminées, elles s’affichent à l’écran.
_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 (1784) s’applique à Microsoft Word 97, 2000, 2002 et 2003. Vous pouvez trouver une version de cette astuce pour l’interface ruban de Word (Word 2007 et plus tard) ici:
link: / wordribbon-Only_Showing_Readability_Statistics [Affichage des statistiques de lisibilité uniquement]
.