Full Outline Data property?

[Rich]

(let me try my post again in proper English

Can someone tell me the property that reports the full
outline level for the current selection?

There is the .OutlineLevel property, but that only
returns the top level of the Outline.

For example, say my current selection is at outline
level "2.1.7", the .OutlineLevel property only
returns "2". I need the full Outline level data,
e.g. "2.1.7".

 

[Astrid]

Hi Rich,

Try something like this:

Sub ShowListFormat()
Dim oPara As Paragraph

For Each oPara In ActiveDocument.Range.Paragraphs
Debug.Print oPara.Range.ListFormat.ListString
Next
Set oPara = Nothing

End Sub

Hope this helps,
regards,
Astrid

So that all can benefit from the discussion, please post all follow-ups to the newsgroup.
Visit the MVP Word FAQ site at http://www.mvps.org/word/