Méthode List.CountNumberedItems (Word)
Renvoie le nombre d'éléments à puces ou numérotés et de champs LISTNUM dans l'objet List spécifié.
Syntaxe
expression. CountNumberedItems
Expression Variable qui représente un objet « List ».
Exemple
Cet exemple montre comment présenter la sélection sous forme de liste à l'aide du deuxième modèle de liste numérotée. Il montre ensuite comment compter les éléments numérotés et à puces ainsi que les champs LISTNUM contenus dans le document actif, puis comment afficher le résultat dans une boîte de message.
Selection.Range.ListFormat.ApplyListTemplate _
ListTemplate:=ListGalleries(wdNumberGallery).ListTemplates(2)
Msgbox ActiveDocument.CountNumberedItems
Cet exemple montre comment compter les éléments à puces ou numérotés de premier niveau contenus dans le document actif.
Msgbox ActiveDocument.Content.ListFormat _
.CountNumberedItems(Level:=1)
Cet exemple montre comment compter le nombre de champs LISTNUM dans la variable myRange.
Le résultat est affiché dans une boîte de message.
Set myDoc = ActiveDocumentSet myRange = _
myDoc.Range(Start:=myDoc.Paragraphs(12).Range.Start, _
End:=myDoc.Paragraphs(50).Range.End)
numfields = myRange.ListFormat.CountNumberedItems(wdNumberListNum)
Msgbox numfields
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.