Numbering VBA 2003

P

Phoenix

Hi,

I have a problem with the numbering after the text goes to a third
indent.

This is the code i'm currently using

Sub Scratchmacro()
Dim myRng As Range
Set myRng = Selection.Paragraphs(1).Range
MsgBox myRng.ListFormat.ListString _
& " " & myRng
End Sub

Am i doing something wrong ?

Thank you

Phoenix
 
W

Word Heretic

G'day "Phoenix" <[email protected]>,

More info required.

1) Word Version

2) Pick one, if none apply, briefly describe:

[ ] Numbering does not use styles
[ ] A single style is used for each list level
[ ] Each list level has its own style


3) Has this document ever been cleansed? If not, please insert a
REVNUM field anywhere in a temporary copy of the document, report its
value after an update (F9) and provide the original document's
creation date. If the age or REVNUM values are high, chances are your
lists have destabilised.


Steve Hudson - Word Heretic

steve from wordheretic.com (Email replies require payment)
Without prejudice


Phoenix reckoned:
 
Top