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.
Aplica un conjunto de características de formato de listas; opcionalmente para un nivel especificado.
Sintaxis
expresión.
ApplyListTemplateWithLevel( _ListTemplate_ , _ContinuePreviousList_ , _DefaultListBehavior_ , _ApplyLevel_ )
expresión 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. |
| 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 el nuevo procedimiento debe utilizar wdWord9ListBehavior para aprovechar el formato mejorado orientado al Web para la sangría y listas de varios niveles. |
| ApplyLevel | Opcional | Variant | Nivel al que se aplica la plantilla de lista. |
Ejemplo
En el ejemplo siguiente 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
Vea 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.