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.


Attachment 18254



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

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

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 :think:

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
Attachment 18282

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.

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

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

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

Code:

---

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

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.

Code:

---

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.

---

Yes that code processes ListType wdListBullets just fine. The problem is that the listtype in your example document is type 4 or wdListOutlineNumbering:

Code:

---

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

---

Hello Greg,

Thanks for being the vba sherlock holmes bullet case solver.:grinhalo:

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