Méthode Range.ComputeStatistics (Word)
Renvoie un type Long qui représente une statistique basée sur le contenu de la plage spécifiée.
Syntaxe
expression. ComputeStatistics( _Statistic_ )
expression Obligatoire. Variable qui représente un objet Range.
Parameters
| Nom | Requis/Facultatif | Type de données | Description |
|---|---|---|---|
| Statistic | Requis | WdStatistic | Type de statistique à calculer. |
Remarques
Il se peut que certaines des constantes énumérées ci-dessus ne soient pas disponibles, selon la prise en charge de langue (anglais (États-Unis), par exemple) que vous avez sélectionnée ou installée.
La statistique retournée pour Table.Cell Range est inexacte en raison du marqueur de fin de cellule qui interfère avec la statistique. La troncation de la plage pour supprimer le marqueur de fin de cellule entraîne la valeur Statistique correcte.
Set cell = Documents("Report.doc").Tables(1).Cell(1, 1)
Set myRange = cell.Range
lineCount = myRange.ComputeStatistics(Statistic:=wdStatisticLines) 'Returns 0
rng.MoveEnd wdCharacter, -1
lineCount = myRange.ComputeStatistics(Statistic:=wdStatisticLines)
MsgBox "The first cell contains " & lineCount _
& " lines."
Exemple
Cet exemple montre comment afficher le nombre de mots et de caractères du premier paragraphe du document « Report.doc ».
Set myRange = Documents("Report.doc").Paragraphs(1).Range
wordCount = myRange.ComputeStatistics(Statistic:=wdStatisticWords)
charCount = myRange.ComputeStatistics(Statistic:=wdStatisticCharacters)
MsgBox "The first paragraph contains " & wordCount _
& " words and a total of " & charCount & " characters."
Voir aussi
Assistance et commentaires
Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.