Sub SmallBullets()
' Paul Beverley - Version 10.05.12
' Change auto bulleted list to small bullets

With ListGalleries(wdBulletGallery).ListTemplates(1).ListLevels(1)
  .NumberFormat = ChrW(8226)
  .Font.Name = "Times New Roman"
End With

Selection.Range.ListFormat.ApplyListTemplateWithLevel ListTemplate:= _
    ListGalleries(wdBulletGallery).ListTemplates(1)
End Sub