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.
Agrega el esquema numerado predeterminado a los párrafos del intervalo del objeto ListFormat especificado.
Sintaxis
expresión.
ApplyOutlineNumberDefault( _DefaultListBehavior_ )
expresión necesaria. Variable que representa un objeto "ListFormat".
Parameters
| Nombre | Obligatorio/opcional | Tipo de datos | Descripción |
|---|---|---|---|
| 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: 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. |
Observaciones
Si los párrafos ya tienen el formato de lista de esquema numerado, este método quita los números y el formato. Este método no quita los estilos de títulos integrados que hayan sido aplicados a los párrafos.
Ejemplo
En este ejemplo se agrega numeración de esquema a los párrafos de la selección. Si la selección tiene ya formato de lista de esquema numerado, este método quita los números y el formato.
Selection.Range.ListFormat.ApplyOutlineNumberDefault
En este ejemplo se establece la variable myRange para incluir los párrafos del documento activo desde el tres hasta el seis, ambos inclusive y, a continuación, se comprueba si el intervalo tiene formato de lista. Si no tiene formato de lista, se aplica el formato de lista de esquema numerado predeterminado.
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.ApplyOutlineNumberDefault
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.