Results 1 to 4 of 4
  1. #1
    david_grimmer
    Guest

    Outline numbering

    I have a document with three levels of numbering that should be:

    1.
    1.1
    2.
    2.1
    2.1.1

    etc.

    however, there is a problem with the third level, what i keep getting is:

    1.
    1.1
    2.
    2.1
    1.2.1
    3
    3.1
    1.3.1

    any ideas why this is happening, it looks like the first two positions have been transposed, but i cant find out why !!

  2. #2
    3 Star Lounger
    Join Date
    Mar 2001
    Location
    Pune
    Posts
    310
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: Outline numbering

    Carefully check out Format & Bullets and Numbering & Outline Numbering & Customize & "Number Format" and "Level"


    If you cannot fix the problem, open a new file, create a new outline numbering scheme to you satisfaction and then paste the text from the existing file and the appropriate locations. This is the quickest way, unless the file(s) you have a problem with is very large.

  3. #3
    Star Lounger
    Join Date
    Mar 2001
    Posts
    73
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: Outline numbering

    Do you have a TM (trademark) symbol above where the numbering breaks up? Is it possible that there's direct formatting on the "affected" paragraph?

    What version of Word?

    suellen

  4. #4
    Super Moderator
    Join Date
    Jan 2001
    Location
    Melbourne, Victoria, Australia
    Posts
    3,852
    Thanks
    4
    Thanked 259 Times in 239 Posts

    Re: Outline numbering

    Try running a macro like this to reset the patterns for numbering in your document
    <pre>Sub RenumberHeadings()
    ' Macro created 1/12/99 by Andrew Lockton
    ' Resets the outline levels for the Heading styles
    ' Define variables
    Dim lev
    Dim myListGallery
    Dim H1Start As Integer
    Dim H2Start As Integer
    Dim H3Start As Integer

    On Error GoTo ErrorHandler
    H1Start = InputBox("Heading 1 Starts at?", , 1)
    H2Start = InputBox("Heading 2 Starts at?", , 1)
    H3Start = InputBox("Heading 3 Starts at?", , 1)

    'Sets the current selection to Heading 1
    Selection.Collapse Direction:=wdCollapseStart
    Selection.Style = ActiveDocument.Styles("Heading 1")

    Set myListGallery = ListGalleries(wdOutlineNumberGallery).ListTemplate s(1)

    'Define the levels
    For Each lev In myListGallery.ListLevels
    lev.NumberStyle = wdListNumberStyleArabic
    lev.Alignment = wdListLevelAlignLeft
    lev.TrailingCharacter = wdTrailingTab

    Select Case lev.Index
    Case 1
    lev.NumberFormat = "%1."
    lev.NumberPosition = CentimetersToPoints(0)
    lev.TabPosition = CentimetersToPoints(1)
    lev.TextPosition = CentimetersToPoints(1)
    lev.StartAt = H1Start
    lev.LinkedStyle = "Heading 1"
    Case 2
    lev.NumberFormat = "%1.%2"
    lev.NumberPosition = CentimetersToPoints(0)
    lev.TabPosition = CentimetersToPoints(1)
    lev.TextPosition = CentimetersToPoints(1)
    lev.StartAt = H2Start
    lev.LinkedStyle = "Heading 2"
    Case 3
    lev.NumberFormat = "%1.%2.%3"
    lev.NumberPosition = CentimetersToPoints(1)
    lev.TabPosition = CentimetersToPoints(2.5)
    lev.TextPosition = CentimetersToPoints(2.5)
    lev.StartAt = H3Start
    lev.LinkedStyle = "Heading 3"
    Case 4
    lev.NumberFormat = "%1.%2.%3.%4"
    lev.NumberPosition = CentimetersToPoints(2.5)
    lev.TabPosition = CentimetersToPoints(4.5)
    lev.TextPosition = CentimetersToPoints(2.5)
    lev.LinkedStyle = "Heading 4"
    Case 5
    lev.NumberFormat = "%1.%2.%3.%4.%5"
    lev.NumberPosition = CentimetersToPoints(2.5)
    lev.TabPosition = CentimetersToPoints(4.5)
    lev.TextPosition = CentimetersToPoints(2.5)
    lev.LinkedStyle = "Heading 5"
    Case 6
    lev.NumberFormat = "%1.%2.%3.%4.%5.%6"
    lev.NumberPosition = CentimetersToPoints(2.5)
    lev.TabPosition = CentimetersToPoints(5)
    lev.TextPosition = CentimetersToPoints(2.5)
    lev.LinkedStyle = "Heading 6"
    Case 7
    lev.NumberFormat = "%1.%2.%3.%4.%5.%6.%7"
    lev.NumberPosition = CentimetersToPoints(2.5)
    lev.TabPosition = CentimetersToPoints(5.5)
    lev.TextPosition = CentimetersToPoints(2.5)
    lev.LinkedStyle = "Heading 7"
    Case 8
    lev.NumberFormat = "%1.%2.%3.%4.%5.%6.%7.%8"
    lev.NumberPosition = CentimetersToPoints(2.5)
    lev.TabPosition = CentimetersToPoints(6)
    lev.TextPosition = CentimetersToPoints(2.5)
    lev.LinkedStyle = "Heading 8"
    Case 9
    lev.NumberFormat = "%1.%2.%3.%4.%5.%6.%7.%8.%9"
    lev.NumberPosition = CentimetersToPoints(2.5)
    lev.TabPosition = CentimetersToPoints(6.5)
    lev.TextPosition = CentimetersToPoints(2.5)
    lev.LinkedStyle = "Heading 9"
    End Select
    Next lev

    myListGallery.Name = "Headings"
    Selection.Range.ListFormat.ApplyListTemplate ListTemplate:=myListGallery, _
    ContinuePreviousList:=True, ApplyTo:=wdListApplyToWholeList

    ErrorHandler:
    MsgBox "Error: " & Err.Number & vbCr & Err.Description
    End Sub</pre>

    Andrew Lockton, Chrysalis Design, Melbourne Australia

Posting Permissions

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