如何用VBA取得Word文档中的标题前面的序号

遇到一个小需求，需要提取Word文档标题前面的序号，例如：

/**************举例文档*******************/
1. 一级标题1   /*一级标题的编号+标题内容，编号可能是系统内置编号样式，也可能是用户
                         *自定义的样式*/
  段落2              /*文档内容段落2，标题1占用一个段落，此处为2*/                    
  段落3             /*文档内容段落3*/  
1.1 二级标题1.1       /*多级符号+二级标题，编号样式为内置或用户自定义样式*/
  段落5
  段落6
1.2 二级标题1.2
  段落8
2. 一级标题2
  段落10
2.1 二级标题2.1
2.1.1 三级标题2.1.1
  段落13
/**************举例文档结束**************/

需要提取到:

1

1.1

1.2

2

2.1

2.1.1

这些