ListGalleries Collection Object
Description
A collection of ListGallery objects that represent the three tabs in the Bullets and Numbering dialog box.
Using the ListGalleries collection
Use the ListGalleries property to return the ListGalleries collection. The following example enumerates the collection of list galleries and sets each of the seven list templates (formats) back to the list template format built into Word.
For Each lg In ListGalleries
For x = 1 To 7
lg.Reset(x)
Next x
Next lg
Use ListGalleries(index), where index is wdBulletGallery, wdNumberGallery, or wdOutlineNumberGallery, to return a single ListGallery object.
The following example returns the third list format (excluding None) on the Bulleted tab in the Bullets and Numbering dialog box and then applies it to the selection.
Set temp3 = ListGalleries(wdBulletGallery).ListTemplates(3)
Selection.Range.ListFormat.ApplyListTemplate ListTemplate:= temp3
Resetting a List Template in the Gallery
To see whether the specified list template contains the formatting built into Word, use the Modified property with the ListGallery object. To reset formatting to the original list format, use the Reset method for the ListGallery object.
Properties
Application property, Count property, Creator property, Parent property.
Methods
Item method.
See Also
ApplyListTemplate method, ListTemplate property.