如何获取选定部分的所有上级标题?

复制内容到剪贴板

代码:

Sub test()
    Dim n As Byte, s As Long, info As String
    With Selection
        n = .ParagraphFormat.OutlineLevel
        Do
            .GoToPrevious wdGoToHeading
            If .Start = s Then Exit Do
            s = .Start
            If .ParagraphFormat.OutlineLevel < n Then
                info = .Range.ListFormat.ListString & .Paragraphs(1).Range.Text & vbCrLf & info
                n = .ParagraphFormat.OutlineLevel
            End If
        Loop
        MsgBox info
    End With
End Sub