Consulting

Results 1 to 10 of 10

Thread: Convert To Normal List Bullets

  1. #1
    VBAX Mentor
    Joined
    Feb 2016
    Location
    I have lived in many places, I love to Travel
    Posts
    405
    Location

    Convert To Normal List Bullets

    Hi folks,


    How can I convert these lists to normal list bullets

    I pasted them from somewhere and they donít look like normal bullets.


    List.png



    When I applied the normal bullet style only the text changed the bullets remained tiny and not large like on the right.

    I will use a macro later and need all my bullets on the same page as me


    Any ideas
    Thank you
    Cheers for your help

    dj

    'Extreme VBA Newbie in progress - one step at a time - like a tortoise's pace'


  2. #2
    VBAX Tutor
    Joined
    Jul 2016
    Posts
    264
    Location
    DJ I would like to help but I can't tell what the characters are exactly. Can you post in a word document?

  3. #3
    VBAX Mentor
    Joined
    Feb 2016
    Location
    I have lived in many places, I love to Travel
    Posts
    405
    Location
    Hello Kilroy,

    I have been perplexed over this bullet issue. Its definately bullet points, and in word they show on the bullet list.

    I tried to ran a macro on them but no bullets were identified

    The case of the mysterious bullet.

    i am pasting these from one note
    so i dont understand why the bullet is not being recognised, and oh they have gone tiny again
    Bullet.docm
    Cheers for your help

    dj

    'Extreme VBA Newbie in progress - one step at a time - like a tortoise's pace'


  4. #4
    You should modify the built-in list bullet style to give you the font size that you require and apply it to the text rather than use manual formatting as in your example.
    Graham Mayor - MS MVP (Word) 2002-2019
    Visit my web site for more programming tips and ready made processes
    http://www.gmayor.com

  5. #5
    VBAX Mentor
    Joined
    Feb 2016
    Location
    I have lived in many places, I love to Travel
    Posts
    405
    Location
    Hello Graham,
    I did that originally but still the bullets dont get recognised by the macro in vba.
    I think its something to do with onenote making these bullets not compatible with word?
    I may try to convert these bullets - which im trying but i dont know what these characters are a tab and a symbol black
    Cheers for your help

    dj

    'Extreme VBA Newbie in progress - one step at a time - like a tortoise's pace'


  6. #6
    Microsoft Word MVP 2003-2009 VBAX Guru gmaxey's Avatar
    Joined
    Sep 2005
    Posts
    3,118
    Location
    What macro? You have shown us what you are trying to do.
    Greg

    Visit my website: http://gregmaxey.com

  7. #7
    VBAX Mentor
    Joined
    Feb 2016
    Location
    I have lived in many places, I love to Travel
    Posts
    405
    Location
    Hi Greg,

    this below works on word bullets with a standard list bullet ,
    but not on the ones pasted from onenote the ones in the original picture thats what i was trying sort out

    Even when i applied the normal list style to these pasted bullets it still doesnt work
    Sub MakeNormalParagrpahsBullets()
    
    'convert bullets to add  notes
    
    
        Dim oPara As Paragraph
        Dim r As Range
        For Each oPara In ActiveDocument.Paragraphs()
    
            Set r = oPara.Range
            If r.ListFormat.ListType = wdListBullet Then
                r.ListFormat.RemoveNumbers _
                NumberType:=wdNumberParagraph
                r.InsertBefore Text:="#N1"
                
                          
            End If
            Set r = Nothing
        Next
    End Sub
    Those pasted bullets dont get recognised
    Cheers for your help

    dj

    'Extreme VBA Newbie in progress - one step at a time - like a tortoise's pace'


  8. #8
    VBAX Tutor
    Joined
    Jul 2016
    Posts
    264
    Location
    This works but only from where ever your cursor is and the cursor need to be in the list you are trying to change. Otherwise it just adds a single bullet.

    Sub bullet()
    '
    ' bullet Macro
    ' bullet
    '
        With ListGalleries(wdBulletGallery).ListTemplates(1).ListLevels(1)
            .NumberFormat = ChrW(61623)
            .TrailingCharacter = wdTrailingTab
            .NumberStyle = wdListNumberStyleBullet
            
            With .Font
                .Size = 26
                .Name = "Symbol"
            End With
            .LinkedStyle = ""
            
        End With
        ListGalleries(wdBulletGallery).ListTemplates(1).Name = ""
        Selection.Range.ListFormat.ApplyListTemplateWithLevel ListTemplate:= _
            ListGalleries(wdBulletGallery).ListTemplates(1), ContinuePreviousList:= _
            False, ApplyTo:=wdListApplyToWholeList, DefaultListBehavior:= _
            wdWord10ListBehavior
    
    End Sub
    ' yes this was done with the recorder so....
    '.Wrap = wdFindContinue?? This macro only runs from where your cursor is.
    Last edited by Kilroy; 02-08-2017 at 10:32 AM. Reason: rewording

  9. #9
    Microsoft Word MVP 2003-2009 VBAX Guru gmaxey's Avatar
    Joined
    Sep 2005
    Posts
    3,118
    Location
    Yes that code processes ListType wdListBullets just fine. The problem is that the listtype in your example document is type 4 or wdListOutlineNumbering:


    Sub MakeNormalParagrpahsBullets()
    Dim oPara As Paragraph
    Dim r As Range
      For Each oPara In ActiveDocument.Paragraphs()
        Set r = oPara.Range
        Debug.Print r.ListFormat.ListType
        If r.ListFormat.ListType = 4 Then 'Or wdListOutlineNumbering
          r.ListFormat.RemoveNumbers _
          NumberType:=wdNumberParagraph
          r.InsertBefore Text:="#N1"
        End If
        Set r = Nothing
      Next
    End Sub
    Greg

    Visit my website: http://gregmaxey.com

  10. #10
    VBAX Mentor
    Joined
    Feb 2016
    Location
    I have lived in many places, I love to Travel
    Posts
    405
    Location
    Hello Greg,

    Thanks for being the vba sherlock holmes bullet case solver.

    Oh I wasted almost a day and I was furious because this darn bullet point was showing in word but then my macro would not recognise it at all. I thought word was malfunctioning and that took more research.

    And I didnít want to manually type the #N1 in front of every bullet point, or use a basic macro to insert infront of these bullets if i made them normal because it would mess the other paragraphs up and im as slow as it gets anyway .

    Well thatís a huge sigh of relief now

    Thanks for solving this and good eveining

    Cheers to other folks who tried to investigate this bullet too
    Cheers for your help

    dj

    'Extreme VBA Newbie in progress - one step at a time - like a tortoise's pace'


Posting Permissions

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