[RESOLVED] Capturing header numbering

[VBAdazed]

Does anyone know of a way to capture the numbering of a Word document's sections/paragraphs?

I would like to search for the next header. I have a way to do this using

Selection.GoTo What:=wdGoToHeading, Which:=wdGoToNext, Count:=1, Name:=""
Selection.Find.ClearFormatting

But now I would like to capture the numbering of each header. For example "1.1, 1.2, 1.2.1, 1.2.2, 1.3, etc... these numbers are generated using auto format in Word. It is important that these numbers not be destroyed in this process.

I think I am looking for a way to use code along the lines of

Selection.Paragraphs(1).Range.ListFormat.ListString

But I can't figure out how to implement it.

Any help is appreciated.

[VBAdazed]

Here is some code I used that works, but it is not pretty...

Sub CaptureParagraphNumbering()

' Find the next header

Selection.GoTo What:=wdGoToHeading, Which:=wdGoToNext, Count:=1, Name:=""
    Selection.Find.ClearFormatting
    With Selection.Find
        .Text = ""
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute
    
    Rem Capture the paragraph number
        Rem Set the variable for the Paragraph Number
        Dim ParaNum As String
        ParaNum = Selection.Paragraphs(1).Range.ListFormat.ListString
        Rem for diagnostic purposes use MsgBox ParaNum
        MsgBox ParaNum
        
End Sub