Método Style.LinkToListTemplate (Word)

Vincula o estilo especificado a um modelo de lista para que a formatação do estilo possa ser aplicada a listas.

Sintaxe

expression. LinkToListTemplate( _ListTemplate_ , _ListLevelNumber_ )

expressão Obrigatório. Uma variável que representa um objeto 'Style'.

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
ListTemplate	Obrigatório	Objeto ListTemplate	O modelo de lista ao qual o estilo será vinculado.
ListLevelNumber	Opcional	Variant	Um número inteiro correspondente ao nível de lista ao qual o estilo deve ser vinculado. Se esse argumento for omitido, o nível do estilo será usado.

Exemplo

Este exemplo cria um novo modelo de lista e vincula estilos de títulos de 1 até 9 aos níveis de 1 até 9. Em seguida, o novo modelo de lista é aplicado ao documento. Qualquer parágrafo formatado com estilos de títulos assumirá a numeração do modelo de lista.

Dim ltTemp As ListTemplate 
Dim intLoop As Integer 
 
Set ltTemp = _ 
 ActiveDocument.ListTemplates.Add(OutlineNumbered:=True) 
 
For intLoop = 1 To 9 
 With ltTemp.ListLevels(intLoop) 
 .NumberStyle = wdListNumberStyleArabic 
 .NumberPosition = InchesToPoints(0.25 * (intLoop - 1)) 
 .TextPosition = InchesToPoints(0.25 * intLoop) 
 .NumberFormat = "%" & intLoop & "." 
 End With 
 With ActiveDocument.Styles("Heading " & intLoop) 
 .LinkToListTemplate ListTemplate:=ltTemp 
 End With 
Next intLoop 
 
ActiveDocument.Content.ListFormat.ApplyListTemplate _ 
 ListTemplate:=ltTemp

Confira também

Objeto Style

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.