本例显示当前活动文档中的所有项目符号或编号列表项目数。
Set myDoc = ActiveDocument
MsgBox myDoc.Lists.Count