LinkToListTemplate Method
Applies To
Style object.
Description
Links the specified style to a list template so that the style's formatting can be applied to lists.
Syntax
expression.LinkToListTemplate(ListTemplate, ListLevelNumber)
expression Required. An expression that returns a Style object.
ListTemplate Required ListTemplate object. The list template that the style is to be linked to.
ListLevelNumber Optional Variant. An integer corresponding to the list level that the style is to be linked to. If this argument is omitted, then the level of the style is used.
See Also
ListLevelNumber property, ListTemplate property.
Example
This example creates a new list template and then links heading styles 1 through 9 to levels 1 through 9. The new list template is then applied to the document. Any paragraphs formatted as heading styles will assume the numbering from the list template.
Set LT = ActiveDocument.ListTemplates.Add(OutlineNumbered:=True)
For x = 1 To 9
With LT.ListLevels(x)
.NumberStyle = wdListNumberStyleArabic
.NumberPosition = InchesToPoints(0.25 * (x - 1))
.TextPosition = InchesToPoints(0.25 * x)
.NumberFormat = "%" & x & "."
End With
With ActiveDocument.Styles("Heading " & x)
.LinkToListTemplate ListTemplate:=LT
End With
Next x
ActiveDocument.Content.ListFormat.ApplyListTemplate ListTemplate:=LT