从当前选择中获取标题编号和文本

Question

我正在寻找一个函数，它根据当前选择返回文本中当前最后一个标题的数量和文本。

我想要一个函数返回＆＃34; 1.1。猫科动物＆＃34;从

1. Animals

Animals are sometimes domesticated.

1.1. Felines

Felines are *often* cats.

1.2. Canines

Canines are sometimes dogs.

其中＆＃34;经常＆＃34;是我目前的选择。我当前的选择可能（并且将会）在我的最终应用程序的表中，因此该函数也必须在表中工作。

标题是标准格式模板＆＃34;标题1＆＃34;或＆＃34;标题2＆＃34;或＆＃34;标题3＆＃34;每个空的Word文件中都有。

该函数应返回最低级别标题，该标题是选择上方的最后一个标题。第二个函数的奖励积分返回前一个＆＃34; 1级标题＆＃34;。

我发现了这个问题：this以及其他SO问题，但我对VBA的修改并不够深入，无法修改它们以实现我的目标。我也用Google搜索了 Selection.Information 和 Selection.Style ，但用两者打了一个墙。例如 .Information 中的 wdActiveEndSectionNumber 仅返回节号，但我不为每个标题使用新节。使用 .Style ，我无法在选择之前找到最后一个标题。