Word VBA教程:CountNumberedItems方法

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

expression.CountNumberedItems(NumberType, Level)

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

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

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

说明

将 NumberType 指定为 wdNumberParagraph 或 wdNumberAllNumbers(默认值)时,计算项目符号项的数目。

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

VBA示例

当应用于 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

Word VBA教程

Word VBA参考教程:目录1 Word VBA参考教程:目录2
Word VBA参考教程:目录3 Word VBA参考教程:目录4
Word VBA参考教程:目录5 Word VBA参考教程:目录6
Word VBA参考教程:目录7 Word VBA参考教程:目录8
Word VBA参考教程:目录9 Word VBA参考教程:目录10
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号