Question

如果在单词中选中任何单词或段落, 是否有方法使用 VBA 查找最近的前一条标题的文本?

例如:

Heading Level 1: The Main Title This is a paragraph about the document. (A) Heading Level 2: A Sub Title This paragraph describes a detail.(B)

如果选中( B) 的任何部分, 我想找到“ A 子标题 ” 。如果选中( A) 的任何部分, 我想找到“ 主标题 ” 。

Answer 1

在上一个标题上有一个特殊的 < code> WdGoToemit :

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")

Answer 2

这就是你在尝试的吗?

Option Explicit

Sub Sample()
    Do
        Selection.MoveUp Unit:=wdLine, Count:=1

        Selection.HomeKey Unit:=wdLine
        Selection.EndKey Unit:=wdLine, Extend:=wdExtend

        If ActiveDocument.ActiveWindow.Selection.Information(wdFirstCharacterLineNumber) = 1 Then Exit Do
    Loop Until Selection.Style <> "Normal"

    MsgBox Selection.Style
End Sub

< 坚固 > SANPSHOT

""https://i.sstatic.net/2RluP.png" alt="此处输入图像描述"/ >

友情链接