返回指定的 Document、List 或 ListFormat 对象中的项目符号、编号项及 LISTNUM 域的数目。
expression.CountNumberedItems(NumberType, Level)
expression 必需。该表达式返回“应用于”列表中的一个对象。
NumberType Variant 类型,可选。所需计算数目的编号类型。可以是下列 WdNumberType 常量之一:wdNumberParagraph、wdNumberListNum 或 wdNumberAllNumbers。默认值为 wdNumberAllNumbers。
Level Variant 类型,可选。编号时需要进行计数的级别。如果省略此参数,将计算所有级别的数目。
将 NumberType 指定为 wdNumberParagraph 或 wdNumberAllNumbers(默认值)时,计算项目符号项的数目。
编号有两种类型:一类是预设的编号 (wdNumberParagraph),可通过在“项目符号和编号”对话框中选取模板的方式将编号添加到段落中;另一种类型是 LISTNUM 域( wdNumberListNum),该类型允许为一个段落添加多个编号。
本示例用第二种编号列表模板为当前选定内容设置列表格式。然后,该示例计算活动文档中的编号、项目符号项和 LISTNUM 域的数目并在一个消息框中显示统计结果。
Selection.Range.ListFormat.ApplyListTemplate _
ListTemplate:=ListGalleries(wdNumberGallery).ListTemplates(2)
Msgbox ActiveDocument.CountNumberedItems
本示例统计活动文档中一级编号或项目符号项目数。
Msgbox ActiveDocument.Content.ListFormat _
.CountNumberedItems(Level:=1)
本示例对 myRange
变量在 LISTNUM 区域计数。结果显示于消息框内。
Set myDoc = ActiveDocument
Set myRange = _
myDoc.Range(Start:=myDoc.Paragraphs(12).Range.Start, _
End:=myDoc.Paragraphs(50).Range.End)
numfields = myRange.ListFormat.CountNumberedItems(wdNumberListNum)
Msgbox numfields
本示例在一个消息框中显示 MyLetter 中每一列表的项目数。
i = 1
Set myDoc = Documents("MyLetter.doc")
For Each li In myDoc.Lists
Msgbox "List " & i & " has " _
& li.CountNumberedItems & " items."
i = i + 1
Next li