Método Style.LinkToListTemplate (Word)
Vincula el estilo especificado a una plantilla de lista para que el formato del estilo pueda aplicarse a las listas.
expresión. LinkToListTemplate( _ListTemplate_ , _ListLevelNumber_ )
expresión requerida. Variable que representa un objeto 'Style'.
| 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. |
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
¿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.