vba word的列表模板和listNum联用

在VBA (Visual Basic for Applications) 中，Word 提供了强大的文档处理功能，包括创建和应用列表模板。ListNum 是 Word 的一个特性，用于在文档中自动编号内容，比如项目符号列表、编号列表等。

列表模板是一种预设的样式，包含了列表格式（如点数、数字、罗马数字）、缩进以及后续编号的生成规则。当你想要在整个文档中保持一致的编号风格时，可以使用 ListNum。例如：

1. **设置列表模板**：首先，你需要定义一个列表模板，通过` wdNumbering Bullets` 或 `wdNumbering Numbered` 属性来指定类型的列表，然后设置起始编号和编号样式。例如：

   Dim lstTemplate As ListTemplate
   Set lstTemplate = ActiveDocument.ListTemplates.Add(wdNumberingStyleBullet)
   lstTemplate.BulletFont.ColorIndex = wdColorBlue ' 设置蓝色子弹

2. **应用到特定部分**：接着，在需要使用该列表的地方，你可以将模板应用到选定的内容上，使用 `Range.ListFormat.SetList(lstTemplate.Name)`：

   Range("A1").Select ' 选择开始位置
   Selection.ListFormat.SetList(lstTemplate.Name)

3. **关联 ListNum**：ListNum 是一个内部变量，它会自动跟踪并更新编号。例如，如果你改变了前一个项目的编号，下一项会自动递增：

   Selection.Range.ListNum Reset  ' 重置当前段落的ListNum
   Selection.ListNum Step 1 ' 自动加一