Vous saviez probablement déjà que Word fournit un moyen de déterminer le nombre de mots dans une sélection ou dans tout votre document. Word a ses propres algorithmes internes pour déterminer le nombre approprié. C’est génial, si vous avez besoin de connaître le nombre de mots réel.

Avant les jours de comptage réel des mots, cependant, les dactylographes déterminaient le nombre moyen de mots dans un document. Cela a été fait en calculant le nombre de caractères tapés, puis en divisant ce chiffre par cinq. À certaines fins, vous devrez peut-être encore calculer le nombre de mots en utilisant cette approche à l’ancienne. Cela peut être fait avec une simple macro, comme suit:

Sub WordCount()

Dim Title As String     Dim WordCount As Integer     Dim Message As String

Title = "WordCount"

WordCount = Int((Len(Selection) / 5) + 0.5)

Message = LTrim(Str(WordCount)) + " word"

If WordCount <> 1 Then Message = Message + "s"

MsgBox Message, vbOKOnly, Title End Sub

_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 (12345) s’applique à Microsoft Word 2007, 2010, 2013, 2016, 2019 et Word dans Office 365. Vous pouvez trouver une version de cette astuce pour le ancienne interface de menu de Word ici:

lien: / word-Counting_Words_the_Old_Fashioned_Way [Compter les mots à l’ancienne].