Find bullet override and apply style

[John in Toronto]

I am constantly receiving files that have lists created by clicking the
format button (bullets or numbering) instead of using a style. They show up
in the style gallery as variations of the following:
- Style Outline numbered Wingdings (symbol) 10 pt Left: 0.43" Ha...
- Style Outline numbered (Latin) Arial 10 pt Left: 0.18" Hanging...

I would like to be able to quickly switch them back to a style. Right now I
select them all in the Styles task pane, and then apply a style.

How do you do this in a macro?

Thanks,

John

Any suggestions?

 

[DaveLett]

Hi John,
I think you're looking for something like the following:

Dim lList As Long

For lList = ActiveDocument.Lists.Count To 1 Step -1
ActiveDocument.Lists(lList).Range.Style = "Normal"
Next lList

HTH,
Dave

 

[John in Toronto]

Dave,

Exactly what I wanted. I changed

ActiveDocument.Lists(lList).Range.Style = "Normal" to
ActiveDocument.Lists(lList).Range.Style = "List Bullet"

This is especially helpful, as no matter how much time I seem to spend
wandering through the Word object model, I can never find what I want.

But bit by bit, I'm learning.

Thanks,

John