Results 1 to 6 of 6
  1. #1
    5 Star Lounger
    Join Date
    Mar 2001
    Location
    New York, NY
    Posts
    922
    Thanks
    2
    Thanked 12 Times in 11 Posts

    Bullet/List (Word 2002)

    Using VBA, is it possible to determine whether a paragraph (for example the paragraph where the insertion point currently is) has a bullet or list num applied? OutlineLevel doesn't offer help, and a bullet could be applied to Normal style paragraph. I'd like to make the determination whether a bulleted style has been applied or whether a bullets icon has been used to prefac a bullet to a normal-style paragraph.

    Thanks,
    Richard Barrett

  2. #2
    Star Lounger
    Join Date
    Jul 2006
    Location
    Colorado, USA
    Posts
    55
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: Bullet/List (Word 2002)

    selection.Range.ListFormat.ListString or activedocument.Paragraphs(n).Range.ListFormat.List String return the number for numbered or outline numbered lists or a ? for bulleted paragraphs

  3. #3
    Super Moderator jscher2000's Avatar
    Join Date
    Feb 2001
    Location
    Silicon Valley, USA
    Posts
    23,112
    Thanks
    5
    Thanked 93 Times in 89 Posts

    Re: Bullet/List (Word 2002)

    In addition to Word's list formatting, you want to know whether someone has manually placed some arbitrary symbol deemed to be a bullet at the beginning of a paragraph? Oh.... I don't know. I personally I use a tab and a hanging indent, preceded by something from the "Wingdings" collection, but I'm not sure how to write a general rule for all of the possibilities.

  4. #4
    5 Star Lounger
    Join Date
    Mar 2001
    Location
    New York, NY
    Posts
    922
    Thanks
    2
    Thanked 12 Times in 11 Posts

    Re: Bullet/List (Word 2002)

    Exactly what I need. Thank you.

  5. #5
    5 Star Lounger
    Join Date
    Mar 2001
    Location
    New York, NY
    Posts
    922
    Thanks
    2
    Thanked 12 Times in 11 Posts

    Re: Bullet/List (Word 2002)

    Although selection.Range.ListFormat.ListString returns "?" for a bulleted list, I am not successful testing for it with

    If selection.Range.ListFormat.ListString = "?"

    or selection.Range.ListFormat.ListString = chr$(63)

    It seems I need

    If selection.Range.ListFormat.ListValue > 0

    Am I correct with this, or is there something I've missed?

    Thanks.

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

    Re: Bullet/List (Word 2002)

    If a paragraph is *not* bulleted or numbered, its associated ListString is an empty string <code>""</code>. So you could use:
    <code>
    If Not Selection.Range.ListFormat.ListString = "" Then</code>

Posting Permissions

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