Page 1 of 2 12 LastLast
Results 1 to 15 of 19
  1. #1
    5 Star Lounger
    Join Date
    Feb 2001
    Location
    Australia
    Posts
    676
    Thanks
    28
    Thanked 2 Times in 2 Posts

    Numbered style indenting issue

    In Word 2010, I have a template with a set of styles including a group like this.

    - List Number = Numbered, Indent 0, Hanging 0.5 cm
    - List Number 2 = Numbered, Indent 0.5 cm, Hanging 0.5 cm
    - List Number 3 = Numbered, Indent 1.0 cm, Hanging 0.5 cm
    - List Number 4 = Numbered, Indent 1.5 cm, Hanging 0.5 cm
    - List Number 5 = Numbered, Indent 2.0 cm, Hanging 0.5 cm

    If I apply one of these styles to a series of paragraphs, it works fine; i.e., the paragraphs are all numbered and indented accordingly.

    Initially, the numbering for each style follows a single series throughout a document; i.e., if I apply the List Number style to three paragraphs at the beginning of the document, they are numbered 1, 2, 3; then, if I apply the same style to another three paragraphs later in the document, they are numbered 4, 5, 6 automatically.

    However, if I right-click on the paragraph numbered 4 and select the "Restart at 1" option, the numbering of that list correctly changes from 4, 5, 6 to 1, 2, 3, but the indenting of the first paragraph (now numbered 1) is lost and reverts to Indent 0, Hanging 0.

    Using Ctrl=Q to apply default paragraph formatting does not restore the formatting from the style, and the only way I can fix it is to re-apply the indenting manually.

    Is this a bug in Word, or is there something else I need to do?

  2. #2
    Super Moderator
    Join Date
    Jan 2001
    Location
    Melbourne, Victoria, Australia
    Posts
    3,852
    Thanks
    4
    Thanked 259 Times in 239 Posts
    Can you post a sample document?
    Andrew Lockton, Chrysalis Design, Melbourne Australia

  3. #3
    5 Star Lounger
    Join Date
    Feb 2001
    Location
    Australia
    Posts
    676
    Thanks
    28
    Thanked 2 Times in 2 Posts
    Thanks for your reply. A test document is attached.
    Attached Files Attached Files
    Last edited by Murgatroyd; 2015-04-24 at 04:29.

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

    I expected from your description that your style series was all linked to a single outline level list but that isn't the case. It appears that each level is a new list. If you set up one outline level list and apply levels from that to your styles then it behaves as it should. I find this easiest to do by simply recording a macro of visiting the outline list dialog and setting up some of the parameters I want. I can then tinker with that macro to fine tune the outline list to behave exactly how I want it.

    Recording a macro of this creates an enormous amount of code but it can be easily edited and tweaked to give you fine control over your list formatting. The great benefit of keeping the macro is you can use it anytime to introduce the same list formatting in another document or to repair your list if something appears corrupted. It is also useful to understand what goes into an outline level list.
    Code:
    Sub MurgatroydListNumbers()
      With ListGalleries(wdOutlineNumberGallery).ListTemplates(1).ListLevels(1)
        .NumberFormat = "%1."
        .TrailingCharacter = wdTrailingTab
        .NumberStyle = wdListNumberStyleArabic
        .NumberPosition = CentimetersToPoints(0)
        .Alignment = wdListLevelAlignLeft
        .TextPosition = CentimetersToPoints(0.5)
        .TabPosition = wdUndefined
        .ResetOnHigher = 0
        .StartAt = 1
        With .Font
          .Bold = wdUndefined
          .Italic = wdUndefined
          .StrikeThrough = wdUndefined
          .Subscript = wdUndefined
          .Superscript = wdUndefined
          .Shadow = wdUndefined
          .Outline = wdUndefined
          .Emboss = wdUndefined
          .Engrave = wdUndefined
          .AllCaps = wdUndefined
          .Hidden = wdUndefined
          .Underline = wdUndefined
          .Color = wdUndefined
          .Size = wdUndefined
          .Animation = wdUndefined
          .DoubleStrikeThrough = wdUndefined
          .Name = ""
        End With
        .LinkedStyle = "List Number"
      End With
      With ListGalleries(wdOutlineNumberGallery).ListTemplates(1).ListLevels(2)
        .NumberFormat = "%2."
        .TrailingCharacter = wdTrailingTab
        .NumberStyle = wdListNumberStyleLowercaseLetter
        .NumberPosition = CentimetersToPoints(0.5)
        .Alignment = wdListLevelAlignLeft
        .TextPosition = CentimetersToPoints(1)
        .TabPosition = wdUndefined
        .ResetOnHigher = 1
        .StartAt = 1
        With .Font
          .Bold = wdUndefined
          .Italic = wdUndefined
          .StrikeThrough = wdUndefined
          .Subscript = wdUndefined
          .Superscript = wdUndefined
          .Shadow = wdUndefined
          .Outline = wdUndefined
          .Emboss = wdUndefined
          .Engrave = wdUndefined
          .AllCaps = wdUndefined
          .Hidden = wdUndefined
          .Underline = wdUndefined
          .Color = wdUndefined
          .Size = wdUndefined
          .Animation = wdUndefined
          .DoubleStrikeThrough = wdUndefined
          .Name = ""
        End With
        .LinkedStyle = "List Number 2"
      End With
      With ListGalleries(wdOutlineNumberGallery).ListTemplates(1).ListLevels(3)
        .NumberFormat = "%3."
        .TrailingCharacter = wdTrailingTab
        .NumberStyle = wdListNumberStyleLowercaseRoman
        .NumberPosition = CentimetersToPoints(1)
        .Alignment = wdListLevelAlignLeft
        .TextPosition = CentimetersToPoints(1.5)
        .TabPosition = wdUndefined
        .ResetOnHigher = 2
        .StartAt = 1
        With .Font
          .Bold = wdUndefined
          .Italic = wdUndefined
          .StrikeThrough = wdUndefined
          .Subscript = wdUndefined
          .Superscript = wdUndefined
          .Shadow = wdUndefined
          .Outline = wdUndefined
          .Emboss = wdUndefined
          .Engrave = wdUndefined
          .AllCaps = wdUndefined
          .Hidden = wdUndefined
          .Underline = wdUndefined
          .Color = wdUndefined
          .Size = wdUndefined
          .Animation = wdUndefined
          .DoubleStrikeThrough = wdUndefined
          .Name = ""
        End With
        .LinkedStyle = "List Number 3"
      End With
      With ListGalleries(wdOutlineNumberGallery).ListTemplates(1).ListLevels(4)
        .NumberFormat = "(%4)"
        .TrailingCharacter = wdTrailingTab
        .NumberStyle = wdListNumberStyleArabic
        .NumberPosition = CentimetersToPoints(1.5)
        .Alignment = wdListLevelAlignLeft
        .TextPosition = CentimetersToPoints(2)
        .TabPosition = wdUndefined
        .ResetOnHigher = 3
        .StartAt = 1
        With .Font
          .Bold = wdUndefined
          .Italic = wdUndefined
          .StrikeThrough = wdUndefined
          .Subscript = wdUndefined
          .Superscript = wdUndefined
          .Shadow = wdUndefined
          .Outline = wdUndefined
          .Emboss = wdUndefined
          .Engrave = wdUndefined
          .AllCaps = wdUndefined
          .Hidden = wdUndefined
          .Underline = wdUndefined
          .Color = wdUndefined
          .Size = wdUndefined
          .Animation = wdUndefined
          .DoubleStrikeThrough = wdUndefined
          .Name = ""
        End With
        .LinkedStyle = "List Number 4"
      End With
      With ListGalleries(wdOutlineNumberGallery).ListTemplates(1).ListLevels(5)
        .NumberFormat = "(%5)"
        .TrailingCharacter = wdTrailingTab
        .NumberStyle = wdListNumberStyleLowercaseLetter
        .NumberPosition = CentimetersToPoints(2)
        .Alignment = wdListLevelAlignLeft
        .TextPosition = CentimetersToPoints(2.5)
        .TabPosition = wdUndefined
        .ResetOnHigher = 4
        .StartAt = 1
        With .Font
          .Bold = wdUndefined
          .Italic = wdUndefined
          .StrikeThrough = wdUndefined
          .Subscript = wdUndefined
          .Superscript = wdUndefined
          .Shadow = wdUndefined
          .Outline = wdUndefined
          .Emboss = wdUndefined
          .Engrave = wdUndefined
          .AllCaps = wdUndefined
          .Hidden = wdUndefined
          .Underline = wdUndefined
          .Color = wdUndefined
          .Size = wdUndefined
          .Animation = wdUndefined
          .DoubleStrikeThrough = wdUndefined
          .Name = ""
        End With
        .LinkedStyle = "List Number 5"
      End With
      With ListGalleries(wdOutlineNumberGallery).ListTemplates(1).ListLevels(6)
        .NumberFormat = "(%6)"
        .TrailingCharacter = wdTrailingTab
        .NumberStyle = wdListNumberStyleLowercaseRoman
        .NumberPosition = CentimetersToPoints(2.5)
        .Alignment = wdListLevelAlignLeft
        .TextPosition = CentimetersToPoints(3.01)
        .TabPosition = wdUndefined
        .ResetOnHigher = 5
        .StartAt = 1
        With .Font
          .Bold = wdUndefined
          .Italic = wdUndefined
          .StrikeThrough = wdUndefined
          .Subscript = wdUndefined
          .Superscript = wdUndefined
          .Shadow = wdUndefined
          .Outline = wdUndefined
          .Emboss = wdUndefined
          .Engrave = wdUndefined
          .AllCaps = wdUndefined
          .Hidden = wdUndefined
          .Underline = wdUndefined
          .Color = wdUndefined
          .Size = wdUndefined
          .Animation = wdUndefined
          .DoubleStrikeThrough = wdUndefined
          .Name = ""
        End With
        .LinkedStyle = ""
      End With
      With ListGalleries(wdOutlineNumberGallery).ListTemplates(1).ListLevels(7)
        .NumberFormat = "%7."
        .TrailingCharacter = wdTrailingTab
        .NumberStyle = wdListNumberStyleArabic
        .NumberPosition = CentimetersToPoints(3.01)
        .Alignment = wdListLevelAlignLeft
        .TextPosition = CentimetersToPoints(3.51)
        .TabPosition = wdUndefined
        .ResetOnHigher = 6
        .StartAt = 1
        With .Font
          .Bold = wdUndefined
          .Italic = wdUndefined
          .StrikeThrough = wdUndefined
          .Subscript = wdUndefined
          .Superscript = wdUndefined
          .Shadow = wdUndefined
          .Outline = wdUndefined
          .Emboss = wdUndefined
          .Engrave = wdUndefined
          .AllCaps = wdUndefined
          .Hidden = wdUndefined
          .Underline = wdUndefined
          .Color = wdUndefined
          .Size = wdUndefined
          .Animation = wdUndefined
          .DoubleStrikeThrough = wdUndefined
          .Name = ""
        End With
        .LinkedStyle = ""
      End With
      With ListGalleries(wdOutlineNumberGallery).ListTemplates(1).ListLevels(8)
        .NumberFormat = "%8."
        .TrailingCharacter = wdTrailingTab
        .NumberStyle = wdListNumberStyleLowercaseLetter
        .NumberPosition = CentimetersToPoints(3.51)
        .Alignment = wdListLevelAlignLeft
        .TextPosition = CentimetersToPoints(4.01)
        .TabPosition = wdUndefined
        .ResetOnHigher = 7
        .StartAt = 1
        With .Font
          .Bold = wdUndefined
          .Italic = wdUndefined
          .StrikeThrough = wdUndefined
          .Subscript = wdUndefined
          .Superscript = wdUndefined
          .Shadow = wdUndefined
          .Outline = wdUndefined
          .Emboss = wdUndefined
          .Engrave = wdUndefined
          .AllCaps = wdUndefined
          .Hidden = wdUndefined
          .Underline = wdUndefined
          .Color = wdUndefined
          .Size = wdUndefined
          .Animation = wdUndefined
          .DoubleStrikeThrough = wdUndefined
          .Name = ""
        End With
        .LinkedStyle = ""
      End With
      With ListGalleries(wdOutlineNumberGallery).ListTemplates(1).ListLevels(9)
        .NumberFormat = "%9."
        .TrailingCharacter = wdTrailingTab
        .NumberStyle = wdListNumberStyleLowercaseRoman
        .NumberPosition = CentimetersToPoints(4.01)
        .Alignment = wdListLevelAlignLeft
        .TextPosition = CentimetersToPoints(4.51)
        .TabPosition = wdUndefined
        .ResetOnHigher = 8
        .StartAt = 1
        With .Font
          .Bold = wdUndefined
          .Italic = wdUndefined
          .StrikeThrough = wdUndefined
          .Subscript = wdUndefined
          .Superscript = wdUndefined
          .Shadow = wdUndefined
          .Outline = wdUndefined
          .Emboss = wdUndefined
          .Engrave = wdUndefined
          .AllCaps = wdUndefined
          .Hidden = wdUndefined
          .Underline = wdUndefined
          .Color = wdUndefined
          .Size = wdUndefined
          .Animation = wdUndefined
          .DoubleStrikeThrough = wdUndefined
          .Name = ""
        End With
        .LinkedStyle = ""
      End With
      ListGalleries(wdOutlineNumberGallery).ListTemplates(1).Name = ""
      Selection.Range.ListFormat.ApplyListTemplateWithLevel ListTemplate:= _
        ListGalleries(wdOutlineNumberGallery).ListTemplates(1), _
        ContinuePreviousList:=True, ApplyTo:=wdListApplyToWholeList, _
        DefaultListBehavior:=wdWord10ListBehavior
    End Sub
    In my own templates, I greatly simplify the code with a loop for the levels but that code is less straightforward to understand and tweak.
    Andrew Lockton, Chrysalis Design, Melbourne Australia

  5. #5
    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
    Charles Kyle Kenyon
    Madison, Wisconsin

  6. #6
    5 Star Lounger
    Join Date
    Feb 2001
    Location
    Australia
    Posts
    676
    Thanks
    28
    Thanked 2 Times in 2 Posts
    Thanks for your replies. However, unless I have misunderstood something, they do not appear to address my issue. The issue is not about multi-level outlining, it is only about losing the indent when restarting the numbering on a single-level numbered list style. I will try to restate the issue more clearly.

    In Word 2010, I have a numbered list style like this.

    - List Number = Numbered, Indent 0, Hanging 0.5 cm

    If I apply this style to a series of paragraphs, it works fine; i.e., the paragraphs are all numbered and indented accordingly.

    Initially, the numbering follows a single series throughout a document; i.e., if I apply the List Number style to three paragraphs at the beginning of the document, they are numbered 1, 2, 3; then, if I apply the same style to another three paragraphs later in the document, they are numbered 4, 5, 6 automatically. So far, so good.

    However, if I right-click on the paragraph numbered 4 and select the "Restart at 1" option, the numbering of that list correctly changes from 4, 5, 6 to 1, 2, 3, but the indenting of the first paragraph (now numbered 1) is lost and reverts to Indent 0, Hanging 0.

    Using Ctrl=Q to apply default paragraph formatting does not restore the formatting from the style, and the only way I can fix it is to re-apply the indenting manually.

    Is this a bug in Word, or is there something else I need to do?
    Attached Files Attached Files
    Last edited by Murgatroyd; 2015-04-26 at 22:17.

  7. #7
    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
    Automatic numbering in Word is not simple.
    Andrew already pointed out that you are apparently using multiple lists. The article I linked gives you a method to control your numbering, even if you are only using a single level.

    The indents must be set through the numbering dialogs, not the style dialog, even though they both have settings for this.

    The demo macro that Andrew provided is a good starting point if you do not want to go through the steps in Shauna's article. Try running the macro and see what you have. Tinker with it to get what you want.
    Installing Macros from a Forum
    Last edited by Charles Kenyon; 2015-04-27 at 07:31.
    Charles Kyle Kenyon
    Madison, Wisconsin

  8. #8
    New Lounger
    Join Date
    Feb 2014
    Posts
    7
    Thanks
    5
    Thanked 1 Time in 1 Post
    This won't address what causes the issue, but after dealing with this exact thing recently, I came up with the following workaround:

    1. Apply formatting from first list to second list. You now have 4, 5, 6, etc. as in your example.
    2. Restart at 1 (which now causes the formatting on #1 to go wonky)
    3. Set cursor in #2 (which should be correctly formatted), then paint the format to #1
    4. Move on with your tasks, as trying to figure out why Word does a number of the things it does is pointless.

  9. #9
    5 Star Lounger
    Join Date
    Feb 2001
    Location
    Australia
    Posts
    676
    Thanks
    28
    Thanked 2 Times in 2 Posts
    Charles, thanks for your further reply; however, there is no issue with numbering, which works perfectly across multiple lists in multiple levels. The only issue is the loss of the indent when the numbering is restarted from 1. It is unclear why "The indents must be set through the numbering dialogs, not the style dialog, even though they both have settings for this."

    I have been working around the issue by restoring the indent manually (in a similar way as RoobyDooby suggests), but why should this be necessary? Why doesn't Word just keep the indent set in the style when the numbering is restarted from 1? I'm only asking it to restart the numbering. I'm not asking it to change the indenting. Seems like a bug to me.
    Last edited by Murgatroyd; 2015-04-27 at 18:52.

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

    Yes, you could consider it a bug but it is solvable by defining the list properly. If you put your cursor in any of those paragraphs and right click and go to "Adjust List Indents" you will see that the definition for number and text indent is both at 0 with a tab stop at 0.63cm. This is clearly at odds with what you see on screen UNTIL you choose to restart the list.

    If you run the macro I supplied then you will discover that the list will still appear the same AND now you will get consistent indentation when you apply a list restart. You will also discover a completely different dialog when you choose the same "Adjust List Indents" option on one of the list entries.
    Andrew Lockton, Chrysalis Design, Melbourne Australia

  11. #11
    5 Star Lounger
    Join Date
    Feb 2001
    Location
    Australia
    Posts
    676
    Thanks
    28
    Thanked 2 Times in 2 Posts
    Thanks for your replies, Andrew. However, I'm afraid they are over my head. I hope the bug will be fixed.

    (I don't understand what the macro achieves or how to use it. Do I just copy the macro into Word, then run it to do whatever it does every time I apply the template with my numbered list styles in it?)
    Last edited by Murgatroyd; 2015-04-27 at 23:40.

  12. #12
    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
    Since this has been how numbering has worked since at least Word 97, I wouldn't hold my breath for a fix.
    Charles Kyle Kenyon
    Madison, Wisconsin

  13. #13
    5 Star Lounger
    Join Date
    Feb 2001
    Location
    Australia
    Posts
    676
    Thanks
    28
    Thanked 2 Times in 2 Posts
    If the bug is so well known and has been around for so long, why don't they fix it?

  14. #14
    Super Moderator
    Join Date
    Jan 2001
    Location
    Melbourne, Victoria, Australia
    Posts
    3,852
    Thanks
    4
    Thanked 259 Times in 239 Posts
    The macro can be run once to define the styles correctly then you can do what you have always done. The macro can be run each time as well but it isn't necessary unless someone scrambles your outline list by fiddling with something.
    Andrew Lockton, Chrysalis Design, Melbourne Australia

  15. #15
    5 Star Lounger
    Join Date
    Feb 2001
    Location
    Australia
    Posts
    676
    Thanks
    28
    Thanked 2 Times in 2 Posts
    Quote Originally Posted by Andrew Lockton View Post
    The macro can be run once to define the styles correctly then you can do what you have always done. The macro can be run each time as well but it isn't necessary unless someone scrambles your outline list by fiddling with something.
    Thanks, but do you mean I need to run the macro once (ever) to fix something in Word, or once each time I start Word, or once each time I apply my template with my numbered list styles in it, or once each time I open a document that has these styles in it, or ...?

    I'm not sure what you mean by my "outline list" or how/where/when someone might fiddle with it.
    Last edited by Murgatroyd; 2015-04-28 at 00:35.

Page 1 of 2 12 LastLast

Posting Permissions

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