VBA Code

What is a ListGallery

There are three types of list galleries in Word:

• wdBulletGallery - Single Level Bullets

• wdNumberGallery - Single Level Numbered

• wdOutlineNumberGallery - Multi-Level Numbering

ListGalleries are saved at both the application level and at the document level.
At the application level there can be only 7 different list templates for each of the 3 tabs.

Application.ListGalleries(wdListGalleryType.wdBulletGallery).ListTemplates 
Application.ListGalleries(wdListGalleryType.wdNumberGallery).ListTemplates 
Application.ListGalleries(wdListGalleryType.wdOutlineNumberGallery).ListTemplates 

At the document (or template) level there can be any number of different list templates.

ActiveDocument.ListTemplates() 

Single Level Bullets - wdBulletGallery

If Application.ListGalleries(wdListGalleryType.wdBulletGallery).Modified(1) = True Then 
   Application.ListGalleries(wdListGalleryType.wdBulletGallery).Reset 1 
End If 
Application.ListGalleries(wdListGalleryType.wdBulletGallery).Reset 7 

This type of bullet only has Listlevel(1)

With Application.ListGalleries(wdListGalleryType.wdBulletGallery) 
   .ListTemplates(1).ListLevels(1).Font.Name = "Symbol" 
   .ListTemplates(1).ListLevels(1).NumberFormat = ChrW(61623) 
   .ListTemplates(1).ListLevels(1).NumberStyle = wdListNumberStyle.wdListNumberStyleBullet 

   .ListTemplates(2).ListLevels(1).Font.Name = "Courier New" 
   .ListTemplates(2).ListLevels(1).NumberFormat = "o" 

   .ListTemplates(3).ListLevels(1).Font.Name = "Wingdings" 
   .ListTemplates(3).ListLevels(1).NumberFormat = ChrW(61607) 

   .ListTemplates(4).ListLevels(1).ApplyPictureBullet FileName:=DefaultPictureBullet 
   '.ListTemplates(4).ListLevels(1).ApplyPictureBullet FileName:=
      "C:\Temp\my_image.bmp"

   .ListTemplates(5).ListLevels(1).Font.Name = "Wingdings" 
   .ListTemplates(5).ListLevels(1).NumberFormat = ChrW(61558) 

   .ListTemplates(6).ListLevels(1).Font.Name = "Wingdings" 
   .ListTemplates(6).ListLevels(1).NumberFormat = ChrW(61656) 

   .ListTemplates(7).ListLevels(1).Font.Name = "Wingdings" 
   .ListTemplates(7).ListLevels(1).NumberFormat = ChrW(61692) 
End With 

Single Level Numbered - wdNumberGallery

If Application.ListGalleries(wdListGalleryType.wdNumberGallery).Modified(1) = True Then 
   Application.ListGalleries(wdListGalleryType.wdNumberGallery).Reset 1 
End If 
Application.ListGalleries(wdListGalleryType.wdNumberGallery).Reset 7 

List Number - You can get the number that has been applied to any list-numbered paragraph using the ListString property

Selection.Paragraphs(1).Range.ListFormat.ListString 

List Level - This means the level in a numbering outline. You can get the list level that has been applied to any list-numbered paragraph using the ListLevelNumber property

Selection.Paragraphs(1).Range.ListFormat.ListLevelNumber 

A paragraph that has no list numbering applied to it returns 1 (instead of 0).
One way of distinguishing unnumbered from numbered paragraphs that genuinely have a list level of 1 is to check how many listparagraphs are in the current range

If Selection.Paragraphs(1).Range.ListParagraphs.Count = 1 Then 
   If (Selection.Paragraphs(1).Range.ListFormat.ListLevelNumber = 1) Then 
      'this is a genuine numbered paragraph
   End If 
End If 

This type of bullet only has Listlevel(1)

With Application.ListGalleries(wdListGalleryType.wdBulletGallery) 
   .ListTemplates(1).ListLevels(1).NumberFormat = "%1." 
   .ListTemplates(1).ListLevels(1).NumberStyle = wdListNumberStyle.wdListNumberStyleArabic 

   .ListTemplates(2).ListLevels(1).NumberFormat = "%1)" 
   .ListTemplates(2).ListLevels(1).NumberStyle = wdListNumberStyle.wdListNumberStyleLowercaseLetter 

   .ListTemplates(3).ListLevels(1).NumberFormat = "%1." 
   .ListTemplates(3).ListLevels(1).NumberStyle = wdListNumberStyle.wdListNumberStyleUppercaseRoman 

   .ListTemplates(4).ListLevels(1).NumberFormat = "%1." 
   .ListTemplates(4).ListLevels(1).NumberStyle = wdListNumberStyle.wdListNumberStyleUppercaseLetter 

   .ListTemplates(5).ListLevels(1).NumberFormat = "%1)" 
   .ListTemplates(5).ListLevels(1).NumberStyle = wdListNumberStyle.wdListNumberStyleLowercaseLetter 

   .ListTemplates(6).ListLevels(1).NumberFormat = "%1." 
   .ListTemplates(6).ListLevels(1).NumberStyle = wdListNumberStyle.wdListNumberStyleLowercaseLetter 

   .ListTemplates(7).ListLevels(1).NumberFormat = "%1." 
   .ListTemplates(7).ListLevels(1).NumberStyle = wdListNumberStyle.wdListNumberStyleLowercaseRoman 
End With 

Multi-Level Numbering - wdOutlineNumberGallery

If Application.ListGalleries(wdListGalleryType.wdOutlineNumberGallery).Modified(1) = True Then 
   Application.ListGalleries(wdListGalleryType.wdOutlineNumberGallery).Reset 1 
End If 
Application.ListGalleries(wdListGalleryType.wdOutlineNumberGallery).Reset 9 

With Application.ListGalleries(wdListGalleryType.wdOutlineNumberGallery) 
   .ListTemplates(1).ListLevels(1) 
   .ListTemplates(1).ListLevels(2) 
   .ListTemplates(1).ListLevels(3) 
   .ListTemplates(1).ListLevels(4) 
   .ListTemplates(1).ListLevels(5) 
   .ListTemplates(1).ListLevels(6) 
   .ListTemplates(1).ListLevels(7) 
   .ListTemplates(1).ListLevels(8) 
   .ListTemplates(1).ListLevels(9) 
End With 

      .TrailingCharacter = wdTrailingCharacter.wdTrailingTab 
      .NumberPosition = CentimetersToPoints(0) 
      .Alignment = wdListLevelAlignment.wdListLevelAlignLeft 
      .TextPosition = CentimetersToPoints(1) 
      .TabPosition = CentimetersToPoints(2) 
      .ResetOnHigher = 0 
      .StartAt = 1 
      .LinkedStyle = "Date" 

Selection.Range.ListFormat.ListType = wdListType.wdListBullet 

Outline Numbering

Selection.Paragraphs(1).OutlineLevel 

Dim oListFormat As ListFormat 
Dim oListTemplate As ListTemplate 
Dim oListLevel As ListLevel 

Set oListFormat = Selection.Paragraphs(1).Range.ListFormat 
'Debug.Print oListFormat.ListLevelNumber
'Debug.Print oListFormat.ListString
Set oListTemplate = oListFormat.ListTemplate 
'Debug.Print oListTemplate.ListLevels.Count
Set oListLevel = oListTemplate.ListLevels.Item(oListFormat.ListLevelNumber) 
Debug.Print oListLevel.NumberStyle = wdListNumberStyleBullet 
Debug.Print oListLevel.Font.Name 
Debug.Print oListLevel.NumberFormat 
Debug.Print oListLevel.NumberPosition 
Stop 

Debug.Print Application.ListGalleries(wdBulletGallery).ListTemplates.Count 
Stop