Método List.CountNumberedItems (Word)
Retorna o número de itens com marcadores ou numerados e de campos LISTNUM no objeto List especificado.
Sintaxe
expression. CountNumberedItems
Expressão Uma variável que representa um objeto 'List'.
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
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.