Results 1 to 5 of 5
  1. #1
    New Lounger
    Join Date
    May 2001
    Posts
    7
    Thanks
    0
    Thanked 0 Times in 0 Posts

    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()
    '
    'L5 Macro (a), ([img]/forums/images/smilies/cool.gif[/img],
    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
    '
    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:= _
    "LISTNUM NumberDefault l5 s1 *MergeFormat", PreserveFormatting:=False
    End Sub</pre>

    -------------------------------------------------------------------------------------------------------------------------------
    <pre>Sub Level5()
    '
    ' Level5 Macro; (a)
    '
    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:= _
    "LISTNUM NumberDefault l5 *MergeFormat"
    End Sub</pre>


    I appreciate any help that you can offer.

    Thanks

  2. #2
    Silver Lounger Charles Kenyon's Avatar
    Join Date
    Jan 2001
    Location
    Sun Prairie, Wisconsin, Wisconsin, USA
    Posts
    2,049
    Thanks
    124
    Thanked 119 Times in 116 Posts

    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)

    Legal Numbering (addbalance.com/usersguide/numbering.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
    Relinking ListTemplates
    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.
    Charles Kyle Kenyon
    Madison, Wisconsin

  3. #3
    New Lounger
    Join Date
    May 2001
    Posts
    7
    Thanks
    0
    Thanked 0 Times in 0 Posts

    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. #4
    5 Star Lounger
    Join Date
    May 2001
    Location
    Stuttgart, Baden-W, Germany
    Posts
    931
    Thanks
    0
    Thanked 0 Times in 0 Posts

    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. #5
    New Lounger
    Join Date
    May 2001
    Posts
    7
    Thanks
    0
    Thanked 0 Times in 0 Posts

    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
  •