Results 1 to 7 of 7
  1. #1
    3 Star Lounger
    Join Date
    Nov 2001
    Posts
    342
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Bullet styles changing bullets (XP/2003)

    I have a template with a style named

  2. #2
    Plutonium Lounger
    Join Date
    Mar 2002
    Posts
    84,353
    Thanks
    0
    Thanked 29 Times in 29 Posts

    Re: Bullet styles changing bullets (XP/2003)

    Instead of referring to a specific list template, try referring to the list template of the selection:

    Sub ResetQNum()
    If MsgBox("Do you want to reset Question Numbers?", _
    vbYesNo, "Reset Question Numbers") = vbYes Then
    Selection.Range.ListFormat.ApplyListTemplate _
    ListTemplate:=Selection.Range.ListFormat.ListTempl ate, _
    ContinuePreviousList:=False, _
    ApplyTo:=wdListApplyToThisPointForward
    End If
    End Sub

  3. #3
    3 Star Lounger
    Join Date
    Nov 2001
    Posts
    342
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: Bullet styles changing bullets (XP/2003)

    Hans, you constantly set new speed records in your replies.

    Thank you very much - I appreciate your solving my issue and also, as I analyse your code, your teaching me a new way to approach this type of issue.
    Have a great Christmas.

  4. #4
    3 Star Lounger
    Join Date
    Nov 2001
    Posts
    342
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: Bullet styles changing bullets (XP/2003)

    Hi Hans,
    A further issue has raised its head. This procedure works fine on my computer but when I send it to another user they get a dialog box saying "invalid procedure call or argument"
    I had them check their references and they are identical to mine - what would cause this?
    Thanks again.

  5. #5
    Plutonium Lounger
    Join Date
    Mar 2002
    Posts
    84,353
    Thanks
    0
    Thanked 29 Times in 29 Posts

    Re: Bullet styles changing bullets (XP/2003)

    The macro assumes that the insertion point/selection is in a numbered list. If the insertion point/selection is in "normal" text, you'll get an "invalid procedure call or argument" runtime error. To avoid this, you can add error handling, or simply insert

    On Error Resume Next

    at the beginning of the macro.

  6. #6
    3 Star Lounger
    Join Date
    Nov 2001
    Posts
    342
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: Bullet styles changing bullets (XP/2003)

    Thanks Hans, that's great.
    The renumbering is working perfectly.
    One more question - if I then create a third section, can this third section continue renumbering from the first section?
    Thanks again.

  7. #7
    Plutonium Lounger
    Join Date
    Mar 2002
    Posts
    84,353
    Thanks
    0
    Thanked 29 Times in 29 Posts

    Re: Bullet styles changing bullets (XP/2003)

    I don't think so. You could manually set the starting number for the 3rd section to be one higher than the last number in the first section, but it wouldn't be updated automatically if you inserted or deleted numbers in the 1st section.
    It might be better to use SEQ fields for the numbering. You can set up any number of different sequences.

Posting Permissions

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