Table des matières
Compter les mots dans la sélection
Cette macro Word VBA comptera le nombre de mots dans la sélection. Si aucune sélection n'est faite, il comptera le nombre de mots dans l'ensemble du document.
Sub WordCount() 'compte le document entier, puis le nombre de mots pour la sélection (si quelque chose est sélectionné) Dim nWordsCount As Long Dim nCharCount As Long nWordsCount = ActiveDocument.Range.ComputeStatistics(wdStatisticWords) nCharCount = ActiveDocument.Range.ComputeStatistics(wdStatisticCharacters) MsgBox L'ensemble du document contient : " & vbCrLf & nWordsCount & " mots et" & vbCrLf & _ nCharCount & " caractères sans espaces", , " Word Count " 'affiche maintenant le nombre de mots pour le texte sélectionné Si Selection.Words.Count >= 1 Et Selection.Type wdSelectionIP Then nWordsCount = Selection.Range.ComputeStatistics(wdStatisticWords) nCharCount = Selection.Range.ComputeStatistics(wdStatisticCharacters) MsgBox "Le texte sélectionné contient : " & vbCrLf & nWordsCount & " mots et" & vbCrLf & " caractères _ espaces", , "Nombre de mots (sélection)" End If End Sub
