Word fournit un outil intégré qui vous permet d’obtenir un décompte du nombre de mots dans votre document. Cependant, certaines personnes préfèrent avoir un nombre de mots constamment mis à jour dans leur document. De cette manière, ils peuvent garder un œil sur le compteur de mots et arrêter d’écrire lorsqu’ils ont atteint le nombre de mots souhaité dans leur document.

Malheureusement, Word ne fournit pas un nombre de mots en cours d’exécution intégré que vous pouvez activer ou désactiver. Vous pouvez cependant créer une macro qui vous fournira les informations nécessaires. La macro astucieuse suivante affichera un nombre de mots constamment mis à jour à la fin de la barre d’outils de formatage:

Sub WordCounter()

Set myBar = CommandBars("Formatting")

Set myControls = myBar.Controls     NumButtons = myControls.Count

ButtonLoc = 0     For J = 1 To NumButtons         If myControls(J).Type = msoControlButton Then             ButtonName$ = myControls(J).OnAction             If ButtonName$ = "WordCounter" Then ButtonLoc = J         End If     Next J

If ButtonLoc = 0 Then         ButtonLoc = NumButtons + 1         Set newControl = myControls.Add(Type:=msoControlButton)

newControl.OnAction = "WordCounter"

newControl.Style = msoButtonCaption     End If

Set myRange = ActiveDocument.Content     WdCount = myRange.ReadabilityStatistics(1).Value     With myControls(ButtonLoc)

.Caption = WdCount     End With

Application.OnTime When:=Now + TimeSerial(0, 0, 5), _       Name:="WordCounter"

End Sub

Notez que cette macro ajoute le nombre de mots à la fin de la barre d’outils de mise en forme lors de sa première exécution. Le bouton de la barre d’outils y reste désormais.

Si vous modifiez ultérieurement votre barre d’outils pour que le bouton ne se trouve pas à la fin de la barre d’outils, la macro la trouvera et agira en conséquence.

Lorsque vous démarrez Word pour la première fois (après avoir exécuté cette macro), vous devrez cliquer sur le bouton de la barre d’outils pour démarrer la macro. Bien sûr, vous pouvez créer une macro de démarrage automatique distincte qui exécuterait WordCounter lorsque vous démarrez Word pour la première fois.

Une chose à noter à propos de la macro est qu’elle est réexécutée toutes les cinq secondes.

Si c’est trop souvent, vous pouvez modifier la valeur (5) dans la fonction TimeSerial vers la fin de la macro. En fonction de la vitesse de votre système, vous pouvez noter un léger scintillement de l’écran à chaque exécution de la macro, mais vous aurez certainement un compte de mots mis à jour. Si vous souhaitez à la place le nombre de mots uniquement lorsque vous cliquez sur le bouton de la barre d’outils, supprimez simplement la ligne Application.OnTime vers la fin de la macro.

Si vous souhaitez supprimer la macro pour qu’elle ne s’exécute plus, vous devez suivre ces trois étapes simples:

  1. Quittez Word.

  2. Redémarrez Word. La macro n’est plus en cours d’exécution.

  3. Modifiez votre barre d’outils de mise en forme pour supprimer le bouton WordCounter.

_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 (1745) s’applique à Microsoft Word 97, 2000, 2002 et 2003.