Question

全部显示

返回指定的 Document、List 或 ListFormat 对象中的项目符号、编号项及 LISTNUM 域的数目。

expression.CountNumberedItems(NumberType,Level)

expression 必需。该表达式返回“应用于”列表中的一个对象。

NumberType Variant 类型，可选。所需计算数目的编号类型。可以是下列 WdNumberType 常量之一：wdNumberParagraph、wdNumberListNum 或 wdNumberAllNumbers。默认值为 wdNumberAllNumbers。

Level Variant 类型，可选。编号时需要进行计数的级别。如果省略此参数，将计算所有级别的数目。

说明

将NumberType 指定为 wdNumberParagraph 或 wdNumberAllNumbers（默认值）时，计算项目符号项的数目。

编号有两种类型：一类是预设的编号 (wdNumberParagraph)，可通过在“项目符号和编号”对话框中选取模板的方式将编号添加到段落中；另一种类型是 LISTNUM 域（ wdNumberListNum），该类型允许为一个段落添加多个编号。

示例

当应用于 ListFormat 对象时。

本示例用第二种编号列表模板为当前选定内容设置列表格式。然后，该示例计算活动文档中的编号、项目符号项和 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

当应用于 List 对象时。

本示例在一个消息框中显示 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