Application.ListGalleries Property (Word)

Office 2013 and later
GitHub-Mark-64px

Contribute to this content

Use GitHub to suggest and submit changes. See our guidelines for contributing to VBA documentation.

Returns a ListGalleries collection that represents the three list template galleries. .

expression .ListGalleries

expression A variable that represents an Application object.

Each template gallery (Bulleted, Numbered, and Outline Numbered) corresponds to a tab in the Bullets and Numbering dialog box (Format menu). For information about returning a single member of a collection, see Returning an Object from a Collection.

This example sets the variable mylsttmp to the second list template on the Outline Numbered tab in the Bullets and Numbering dialog box. The example then applies that template to the first list in the active document.

Set mylsttmp = _ 
 ListGalleries(wdOutlineNumberGallery).ListTemplates(2) 
ActiveDocument.Lists(1).ApplyListTemplate ListTemplate:=mylsttmp

This example cycles through the ListGalleries collection and changes the templates in each list template gallery back to the built-in template.

For Each listgal In ListGalleries 
 For i = 1 To 7 
 listgal.Reset(i) 
 Next i 
Next listgal
Show: