VBA有没有办法获取当前一级标题的阿拉伯数字？

zhanglei1371

如题，一级标题比如内容是”3.我是一级标题”，这个3不是自动编号，如何在一级标题下面任意的地方用VBA仅获取到前面的3？
PS：我一开始想到的是用styleref，但是不知道如何在内存中生成？可能这个是错误的想法。

过客fppt

可以用vba通过查找把这个3查找出来，当然不一定是3的话 ，可以用文本通配符，查找到后，用selection.range.text获取这一个编号个编号，不知道我的想法可不可行

过客fppt

过客fppt 发表于 2023-8-7 11:19
可以用vba通过查找把这个3查找出来，当然不一定是3的话 ，可以用文本通配符，查找到后，用selection.range. ...

还有就是，查找到后，检测是否是一级标题，如果是，则获取该编号

413191246se

zhanglei 老师 暑假好！快立秋了，凉快了！老师 的问题看似很简单，却又不简单。一般我把“1.XX”归为标题4，可以用查找法、循环遍历段落法等方法找到它，即便为“123.XX”也可。不知老师是何意思。（不过，我拟在未来的公文排版中，抛弃样式，直接来格式就够了，公文不需要抽取目录。）

batmanbbs

zhanglei1371

过客fppt 发表于 2023-8-7 11:23
还有就是，查找到后，检测是否是一级标题，如果是，则获取该编号

我最初的想法是styleref域，但是必须是插入在当前位置才行，适合于手动操作。无法直接vba在内存中获取。
其他思路如batmanbbs的find方法可以。
另外，还有goto方法也可以，或者从当前位置向上遍历判断，都是可行的思路。

zhanglei1371

413191246se 发表于 2023-8-7 11:30
zhanglei 老师 暑假好！快立秋了，凉快了！老师 的问题看似很简单，却又不简单。一般我把“1.XX”归为标题4 ...

抛开styleref的思路，也有不少方法，如倒着遍历+判断，batmanbbs的find也是个很好的方法。

过客fppt

zhanglei1371 发表于 2023-8-7 16:33
抛开styleref的思路，也有不少方法，如倒着遍历+判断，batmanbbs的find也是个很好的方法。

确实方法不错，我忘记了find中可以直接设置标题了

batmanbbs

除了页码之外，我不会用其他域代码。请问用手动的方法，如何使用 styleref 域代码来现实你自己的这个需求呢？我觉得如果可以用域代码来实现，同样也可以使用 VBA 添加这个域代码来完成这个要求。

zhanglei1371

batmanbbs 发表于 2023-8-7 22:27
除了页码之外，我不会用其他域代码。请问用手动的方法，如何使用 styleref 域代码来现实你自己的这个需求呢 ...

手动只能用styleref ”标题 1”域代码，但是无法仅仅得到编号。我的想法是若能在内存中获取到域代码的结果，再用VBA处理。但是似乎无法做到。
对比了几种方案，还是查找法速度最快。