Nota:
El acceso a esta página requiere autorización. Puede intentar iniciar sesión o cambiar directorios.
El acceso a esta página requiere autorización. Puede intentar cambiar los directorios.
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 necesaria. Variable que representa un objeto List.
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 : wdListApplyToSelection, wdListApplyToWholeList o wdListApplyToThisPointForward. |
| DefaultListBehavior | Opcional | Variant | Establece un valor que especifica si Microsoft Word usa un nuevo formato orientado a la web para una mejor visualización de la lista. Puede ser cualquiera de las siguientes constantes WdDefaultListBehavior: wdWord8ListBehavior (usar formato compatible con Microsoft Word 97) o wdWord9ListBehavior (usar formato orientado a la web). Por motivos de compatibilidad, la constante predeterminada es wdWord8ListBehavior, pero en los procedimientos nuevos debe usar wdWord9ListBehavior para aprovechar el formato mejorado orientado a la web con respecto a la sangría y las listas multinivel. |
Ejemplo
En este ejemplo se establece la variable myRange en un intervalo del documento activo y, a continuación, se comprueba si el intervalo tiene formato de lista. Si no se ha aplicado este formato, la cuarta plantilla de lista de esquema numerado se aplicará al rango.
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
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.