ListGalleries Collection Object

Word Developer Reference

A collection of ListGallery objects that represent the three tabs in the Bullets and Numbering dialog box.

Remarks

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.

Visual Basic for Applications
  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.

Visual Basic for Applications
  Set temp3 = ListGalleries(wdBulletGallery).ListTemplates(3)
Selection.Range.ListFormat.ApplyListTemplate ListTemplate:= temp3

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.

See Also