Método ListFormat.ApplyListTemplate (Word)
Se aplica a un conjunto de características de formato de lista al objeto ListFormat especificado.
Sintaxis
expresión. ApplyListTemplate
( _ListTemplate_
, _ContinuePreviousList_
, _ApplyTo_
, _DefaultListBehavior_
)
expresión requerida. Variable que representa un objeto "ListFormat".
Parameters
Nombre | Obligatorio/opcional | Tipo de datos | Descripción |
---|---|---|---|
ListTemplate | Obligatorio | ListTemplate | Plantilla de lista que se va a aplicar. |
ContinuePreviousList | Opcional | Variant | True para continuar la numeración de la lista anterior; False para iniciar una nueva lista. |
ApplyTo | Opcional | Variant | La parte de la lista que se pueden aplicar a la plantilla de lista. Puede ser una de las siguientes constantes WdListApplyTo: wdListSelection, wdListWholeList o wdListThisPointForward. |
DefaultListBehavior | Opcional | Variant | Establece un valor que especifica si Microsoft Word utiliza el formato orientado al Web es nueva para una mejor presentación de lista. Puede ser cualquiera de las siguientes constantes WdDefaultListBehavior: wdWord8ListBehavior (formato compatible con Microsoft Word 97) o wdWord9ListBehavior (formato orientado al Web). Por motivos de compatibilidad, la constante predeterminada es wdWord8ListBehavior, pero en nuevos procedimientos que se debe utilizar wdWord9ListBehavior para aprovechar orientado al Web formato mejorado con sangría y de varios niveles listas. |
Ejemplo:
En este ejemplo la variable myRange se establece en un intervalo del documento activo y, a continuación, se comprueba si el intervalo presenta formato de lista. Si no se ha aplicado este formato, la cuarta plantilla de lista de esquema numerado se aplicará al intervalo.
Set myDoc = ActiveDocument
Set myRange = myDoc.Range( _
Start:= myDoc.Paragraphs(3).Range.Start, _
End:=myDoc.Paragraphs(6).Range.End)
If myRange.ListFormat.ListType = wdListNoNumbering Then
myRange.ListFormat.ApplyListTemplate _
ListTemplate:=ListGalleries(wdOutlineNumberGallery) _
.ListTemplates(4)
End If
Consulte también
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.
Comentarios
https://aka.ms/ContentUserFeedback.
Próximamente: A lo largo de 2024 iremos eliminando gradualmente GitHub Issues como mecanismo de comentarios sobre el contenido y lo sustituiremos por un nuevo sistema de comentarios. Para más información, vea:Enviar y ver comentarios de