Nota:
El acceso a esta página requiere autorización. Puede intentar iniciar sesión o cambiar directorios.
El acceso a esta página requiere autorización. Puede intentar cambiar los directorios.
Devuelve el número de elementos con viñetas o números y campos LISTNUM del objeto List especificado.
Sintaxis
expresión. CountNumberedItems
expresión Variable que representa un objeto "List".
Ejemplo
En este ejemplo se da formato a la selección actual como lista, utilizando la segunda plantilla de lista numerada. En el ejemplo, a continuación se cuentan los elementos numerados y con viñetas y los campos LISTNUM del documento activo y se presenta el resultado en un cuadro de mensaje.
Selection.Range.ListFormat.ApplyListTemplate _
ListTemplate:=ListGalleries(wdNumberGallery).ListTemplates(2)
Msgbox ActiveDocument.CountNumberedItems
En este ejemplo se cuenta el número de elementos de primer nivel numerados o con viñetas del documento activo.
Msgbox ActiveDocument.Content.ListFormat _
.CountNumberedItems(Level:=1)
En este ejemplo se cuenta el número de campos LISTNUM de la variable myRange.
El resultado se muestra en un cuadro de mensaje.
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
Vea también
Soporte técnico y comentarios
¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.