Lise travaille avec 50 petits documents, dont beaucoup de moins d’une page. Tous sont dans des fichiers séparés (pas de maître ni de sous-documents). Elle aimerait connaître le nombre total de mots dans tous les fichiers et se demande s’il existe un moyen facile d’en obtenir le nombre.

Une option consiste à utiliser un complément tiers qui peut calculer le nombre de mots pour vous. Voici trois suggestions que vous voudrez peut-être consulter:

WordCounter: http://www.editorium.com/counter.htm FineCount: http://www.tilti.com/software-for-translators/finecount/?id=2_finecountv2 Total Assistant: http://www.surefiresoftware.com/totalassistant/

Bien sûr, si vous préférez «rouler vous-même» plutôt que de vous fier à la solution de quelqu’un d’autre, vous pouvez créer une macro relativement simple qui parcourra chaque fichier dans un dossier et calculera un nombre total de mots.

Sub GetWordCount()

Dim docname As String     Dim NumWords As Long     Dim NumFiles As Integer     Dim PathName As String

PathName = "c:\mypath\"



NumWords = 0     docname = Dir(PathName & ".doc")

While docname <> ""

NumFiles = NumFiles + 1         Documents.Open FileName:=PathName & docname, Visible:=False         Documents(docname).Activate

NumWords = NumWords + ActiveDocument.BuiltInDocumentProperties("Number of words").Value

Documents(docname).Close savechanges:=False         docname = Dir     Wend

MsgBox ("There are " & NumWords & " words in " & NumFiles & " documents.")

End Sub

Pour utiliser la macro, veillez à modifier la variable PathName afin qu’elle reflète le chemin d’accès au dossier contenant les documents que vous souhaitez compter. (La désignation du chemin doit se terminer par une barre oblique inverse.) Lorsque vous exécutez la macro, elle affiche le nombre de mots dans une boîte de message.

_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 (5595) 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:

lien: / wordribbon-Word_Counts_for_a_Group_of_Documents [Nombre de mots pour un groupe de documents].