# Thread: LISTNUM Numbering (Word XP)

1. ## LISTNUM Numbering (Word XP)

<P ID="edit" class=small>Edited by jscher2000 on 02-May-02 15:51.</P>Well I have searched and searched the site and although I have found plenty of information on numbering, which by the way I have found extremely helpful, I am however going to go crazy with this problem.
================================================== ====================
WHAT I AM TRYING TO ACCOMPLISH
I work for a Law Firm and have been working on "In Paragrah Numbering" automation. That is numbering for a list within a paragraph that does not affect the numbering of the next paragraph.
================================================== ====================

EXAMPLE:
Section 1.01 The quick brown (a) fox jumps over the lazy dog. ([img]/forums/images/smilies/cool.gif[/img] The quick brown fox jumps over the lazy dog. The quick brown fox jumps over the lazy dog. © The quick brown fox jumps over the lazy dog. The quick brown fox jumps over the lazy dog.

(a) The quick brown fox jumps over the lazy dog. The quick brown fox jumps over the lazy dog. The quick brown fox jumps over the lazy dog.

Note: The list is coded as follows:
(a) {LISTNUM NumberDefault L5 S1}
([img]/forums/images/smilies/cool.gif[/img] {LISTNUM NumberDefault L5}
================================================== ====================
WHERE I AM
I have been able to accomplish this utilizing LISTNUM and NumberDefault, however the problem is that if you already have a list within a paragraph as in the above example (Section 1.01) if the user decides that they want to add in a new (a) there is already a level created that sets the (a) to start at 1. How do I insert the new (a) set it to start at s1 but remove the s1 from the next field.
================================================== ====================
CODING:

I SET UP A TOOLBAR THAT RUNS MACRO L5. L5 THEN SEARCHES THE PARAGRAPH FOR L5 S1 IF IT EXISTS IT ALLS MACRO LEVEL5 OTHERWISE IT CALLS MACRO LEVEL5START1.

<pre>Sub L5()
'
Dim bolFound As Boolean
Dim objPara As Paragraph
Dim objField As Field

bolFound = False
For Each objField In Selection.Paragraphs(1).Range.Fields
If objField.Type = wdFieldListNum Then
If InStr(UCase(objField.Code.Text), "L5 S1") Then
bolFound = True
Exit For
End If
End If
Next

If bolFound = True Then
Call Level5
Else
Call Level5Start1
End If
End Sub</pre>

-------------------------------------------------------------------------------------------------------------------------------
<pre>Sub Level5Start1()
'
' Level5 Macro; (a); Numbering set to start at 1
'
"LISTNUM NumberDefault l5 s1 *MergeFormat", PreserveFormatting:=False
End Sub</pre>

-------------------------------------------------------------------------------------------------------------------------------
<pre>Sub Level5()
'
' Level5 Macro; (a)
'
"LISTNUM NumberDefault l5 *MergeFormat"
End Sub</pre>

I appreciate any help that you can offer.

Thanks

2. ## Re: LISTNUM Numbering (Word XP)

What I've used is numbering attached to styles per Dave Rado. While I do it manually following his directions I understand that it is best done using VBA. Otherwise, go with one of the commerical Add-Ins.

Here's what I have on numbering, which you may have already checked:

See:
Word's Numbering Explained (mvps.org/word/FAQs/Numbering/WordsNumberingExplained.htm)

How to Create a Template, Part II (mvps.org/word/FAQs/Customization/CreateATemplatePart2.htm)

Seven Laws of Outline Numbering (microsystems.com/fra_sevenlawsofoutlinenumbering.htm)

The following are discussions on the Microsoft newsgroups on numbering:
Nightmare on ListNumbering Street
The Joy of Lists
Outline numbering: restart doesn't restart
Format Doesn't "Hold"
(above list compiled by Dave Rado, Word MVP)

ListNumbering Street Revisited

Latest Numbering Discussion See especially posting #3 which contains Dave Rado's concise instructions for setting up heading numbering.

(In case it matters, no, I don't understand all this, but I respect my elders - even those who are younger than I am.) <img src=/S/salute.gif border=0 alt=salute width=15 height=20>

You may also want to look at Andrew Lockton's statement that list numbering can be controlled.

3. ## Re: LISTNUM Numbering (Word XP)

Thank you most of what you posted I have read, but there are some new sources, which I will take a look at. I appreciate your help. I am hoping I will find my answer in one of these articles/postings.

<img src=/S/crossfingers.gif border=0 alt=crossfingers width=17 height=16>

4. ## Re: LISTNUM Numbering (Word XP)

I haven't looked at your macros, but perhaps you could define Level 4 of the list template "NumberDefault" without numbering, and insert
{ LISTNUM NumberDefault L4 } at the start of each Section. Use {LISTNUM NumberDefault L5} for "(a)", "(B)", ...; they will restart in every section.

If you use the same list template for the numbering of your sections ("Section *1.01* The quick ...") and inline numbering ("... brown *(a)* fox jumps ..."), you should get the restarts for each section automatically.

This would even work if you use outline numbered styles (the section style would probably be linked to the second level) for the paragraph numbering and LISTNUM fields for the inline numbering, as long as both use the same list template.

<img src=/S/cheers.gif border=0 alt=cheers width=30 height=16>Regards, Klaus

5. ## Re: LISTNUM Numbering (Word XP)

hmmm I going to try that Thanks

#### Posting Permissions

• You may not post new threads
• You may not post replies
• You may not post attachments
• You may not edit your posts
•