LinkedStyle Property Example

This example sets the variable myListTemp to the first list template (excluding None) on the Outline Numbered tab in the Bullets and Numbering dialog box. Each level in the list has a matching heading style linked to it.

Set myListTemp = _
    ListGalleries(wdOutlineNumberGallery).ListTemplates(1)
For Each mylevel In myListTemp.ListLevels
    mylevel.LinkedStyle = "Heading " & mylevel.index
Next mylevel