Modified Property Example

This example checks to see whether the first template on the Bulleted tab in the Bullets and Numbering dialog box has been changed. If it has, the list template is reset.

temp = ListGalleries(wdBulletGallery).Modified(1)
If temp = True Then
    ListGalleries(wdBulletGallery).Reset(1)
Else
   Msgbox "This is the built-in list template."
End If