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

Objet de liste

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.