诸位大神，如何用vba把文档里的标题重新排序

aaxclxcl · 发表于 2017-4-26 14:40:37

现在有一个文档，文档结构大致如下：3 一级标题
3.1 二级标题
      3.1.1 三级标题
3.2 二级标题
3.3 二级标题
      3.3.1 三级标题
5 一级标题
5.1 二级标题
      5.1.1 三级标题
5.2 二级标题
5.3 二级标题
      5.3.1 三级标题

8 一级标题
8.1 二级标题
      8.1.1 三级标题

...
当然序号也不一定是3.5.8，现想要把标题序号按照次序重新生成，变成如下：
1 一级标题
1.1 二级标题
      1.1.1 三级标题
1.2 二级标题
1.3 二级标题
      1.3.1 三级标题
2 一级标题
2.1 二级标题
      2.1.1 三级标题
2.2 二级标题
2.3 二级标题
      2.3.1 三级标题

3 一级标题
3.1 二级标题
      3.1.1 三级标题

...

附件为文档，请问用vba应该怎么写呢，先谢谢了，求大神帮帮忙。