Método Style.LinkToListTemplate (Word)

  • Artículo

Vincula el estilo especificado a una plantilla de lista para que el formato del estilo pueda aplicarse a las listas.

Sintaxis

expresión. LinkToListTemplate( _ListTemplate_ , _ListLevelNumber_ )

expresión requerida. Variable que representa un objeto 'Style'.

Parameters

Nombre Obligatorio/opcional Tipo de datos Descripción
ListTemplate Obligatorio Objeto ListTemplate Plantilla de lista a la que está vinculado el estilo.
ListLevelNumber Opcional Variant Número entero que corresponde al nivel de lista al que está vinculado el estilo. Si se omite este argumento, se utiliza el nivel del estilo.

Ejemplo:

En este ejemplo, se crea una nueva plantilla de lista y después se vinculan los estilos de título 1 a 9 a los niveles 1 a 9. A continuación, se aplica la nueva plantilla al documento. Todos los párrafos con formato de título tomarán la numeración de esta plantilla.

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

Consulte también

Objeto Style

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.