Generate square bullet specifically?

[donedown]

The following works, is square bullet is the last selected bullet style from the GUI menu.

Selection.Range.ListFormat.ApplyBulletDefault

I would like to use syntax that will generate the square shaped bullet at all times, irregardless of the last selected bullet icons.

[gmayor]

How about

With ListGalleries(wdBulletGallery).ListTemplates(1).ListLevels(1)
.NumberFormat = ChrW(61607)
.Font.Name = "Wingdings"
End With
Selection.Range.ListFormat.ApplyListTemplateWithLevel _
ListTemplate:=ListGalleries(wdBulletGallery).ListTemplates(1)