Método ListFormat.CountNumberedItems (Word)

Retorna o número de itens com marcadores ou numerados e de campos LISTNUM no objeto ListFormat especificado.

Sintaxe

expression. CountNumberedItems

Expressão Uma variável que representa um objeto 'ListFormat'.

Exemplo

Este exemplo formata a seleção atual como uma lista, usando o segundo modelo de lista numerada. Em seguida, o exemplo conta os itens com marcadores e numeração e os campos LISTNUM do documento ativo e exibe os resultados em uma caixa de mensagem.

Selection.Range.ListFormat.ApplyListTemplate _ 
    ListTemplate:=ListGalleries(wdNumberGallery).ListTemplates(2) 
Msgbox ActiveDocument.CountNumberedItems

Este exemplo conta o número de itens com marcadores ou com numeração de primeiro nível do documento ativo.

Msgbox ActiveDocument.Content.ListFormat _ 
    .CountNumberedItems(Level:=1)

Este exemplo conta o número de campos LISTNUM da variável myRange. O resultado é exibido em uma caixa de mensagem.

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

Confira também

Objeto ListFormat

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.