vba - word中上一个标题的文本

Question

给定 Word 中任何选定的单词或段落，有没有办法使用 VBA 查找最近的前面标题的文本？

例如:

标题级别 1:主要标题
这是关于文件的一段。 (一种)
标题级别 2:副标题
这一段描述了一个细节。(B)

如果选择了(B)的任何部分，我想找到“A Sub Title”。如果选择了(A)的任何部分，我想找到“主标题”。

Answer 1

有专门的WdGoToItem上一个标题:

Dim heading As Range
Set heading = selection.GoTo(What:=wdGoToHeading, Which:=wdGoToPrevious)

' Display heading text
heading.Expand Unit:=wdParagraph
MsgBox heading.Text

这是从文档中的任何位置获取整个当前标题级别的鲜为人知的技巧:

Dim headingLevel as Range
' headingLevel encompasses the region under the preceding heading
Set headingLevel = Selection.GoTo(What:=wdGoToBookmark, Name:="\HeadingLevel")