Word a cet outil astucieux qui compte le nombre de mots dans votre document pour vous. Le seul problème est qu’il ne compte pas tous les mots. Par exemple, si votre document contient des zones de texte, l’outil de comptage de mots n’inclura aucun texte dans les zones de mots dans le nombre de mots global du document. Cela peut être un réel problème, en particulier si vous utilisez des zones de texte pour implémenter un élément de document spécial, comme des barres latérales.

Il existe cependant un moyen de contourner le problème. Vous pouvez compter tous les mots de la partie principale de votre document comme vous le feriez normalement, puis noter ce nombre. Déplacez ensuite le point d’insertion dans une zone de texte.

Si vous exécutez l’outil de comptage de mots, Word renvoie le nombre de mots dans cette zone de texte. Si vous sélectionnez plusieurs zones de texte avant d’exécuter l’outil de comptage de mots, Word renvoie le nombre de tous les mots dans toutes les zones de texte que vous avez sélectionnées. Si vous utilisez des zones de texte liées, vous n’êtes pas obligé de toutes les sélectionner, mais vous devez déplacer le point d’insertion dans la dernière zone de texte de la série. Lorsque vous additionnez le nombre de mots dans le document principal, plus le nombre de mots pour toutes les zones de texte, vous aurez le nombre de mots pour l’ensemble du document.

Si vous utilisez beaucoup les zones de texte, le processus ci-dessus peut devenir assez gênant. Si vous préférez, vous pouvez créer une macro qui automatisera le processus pour vous. La macro suivante détermine le nombre de mots dans le document principal et y ajoute le nombre de mots pour chaque zone de texte du document. Le résultat est un nombre total de mots, comme décrit ci-dessus.

Sub TxtBxCount()

Dim i As Integer     Dim TxtWrds As Range     Dim TxtWrdsStats As Long     Dim ToTxtWrds As Long     Dim Lngwords As Long     Dim ToWords As Long

Lngwords = ActiveDocument.BuiltInDocumentProperties(wdPropertyWords)

For s = 1 To ActiveDocument.Shapes.Count         Set TxtWrds = ActiveDocument.Shapes(s).TextFrame.TextRange         TxtWrdsStats = TxtWrds.ComputeStatistics(Statistic:=wdStatisticWords)

ToTxtWrds = ToTxtWrds + TxtWrdsStats     Next     ToWords = Lngwords + ToTxtWrds     MsgBox ("The document has " & Format(ToWords, "##,##0") & " words.")

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