Convert To Normal List Bullets

[dj44]

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

[Kilroy]

DJ I would like to help but I can't tell what the characters are exactly. Can you post in a word document?

[dj44]

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

[gmayor]

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.

[dj44]

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

[gmaxey]

What macro? You have shown us what you are trying to do.

[dj44]

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

[Kilroy]

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.

[gmaxey]

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

[dj44]

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