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.


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

[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 :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
18282

[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.: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