ListGalleries Collection Object

Microsoft Word Visual Basic

Multiple objectsListGalleries

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.