Guides Bullet List cleanup

Hi

I think you can do the macro by recording:

- Search & replace the List1 paragraph style with an unused style (e.g. Content10)
- Search for all paragraphs in Content10
- Apply the numbering via the toolbar
- Remove numbering via the toolbar
- Replace the paragraph style Contents10 with List1

Best regards

Pierre-Yves SAMYN

Thanks Pierre and Rafael for the help on cleaning the list styles

For the record, the small piece of code is
--------8<----------
Sub CleanListStyles
   Dim sFamilies as Variant
   sFamily = ThisComponent.StyleFamilies.getByName("ParagraphStyles")
   Dim newStyle as Object
   Set newStyle = ThisComponent.CreateInstance("com.sun.star.style.ParagraphStyle")'
   newStyle.ParentStyle = "Standard"
   sFamily.insertByName("olivier_dummy", newStyle)
   CleanExtraBullet("List 1", "olivier_dummy")
   CleanExtraBullet("List 2", "olivier_dummy")
   CleanExtraBullet("Heading Caution", "olivier_dummy")
   CleanExtraBullet("Heading Tip", "olivier_dummy")
   CleanExtraBullet("Heading Note", "olivier_dummy")
   sFamily.removeByName("olivier_dummy")
msgbox "Finished"
End sub
--------8<----------

where CleanExtraBullet() is the macro recording that Pierre suggested.

I am cleaning the source files of Getting Started 7.2

Regards
Olivier