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.
Colección de todos los objetos Section del documento.
Observaciones
Use Item (index), donde (index) es el número de índice, para devolver un único objeto Section . El uso de Sections (index), donde (index) es el número de índice, también devolverá un único objeto Section .
Use Count para devolver el número de secciones de la publicación.
Use Agregar (StartPageIndex), donde StartPageIndex es el número de índice de la página, para devolver una nueva sección agregada a un documento. Se devuelve un error "Permiso denegado" si la página ya contiene un encabezado de sección.
Use Section.Delete (index), donde (index) es el número de índice, para eliminar la sección especificada del documento. Si se intenta eliminar la primera sección, se devuelve un error "Permiso denegado".
Ejemplo
En el ejemplo siguiente se establece el formato de número y el número inicial de la primera sección del documento activo.
With ActiveDocument.Sections.Item(1)
.PageNumberFormat = pbPageNumberFormatArabic
.PageNumberStart = 1
End With
En el ejemplo siguiente se continúa la numeración de la sección anterior de la segunda sección del documento activo.
ActiveDocument.Sections(2).ContinueNumbersFromPreviousSection=True
En el ejemplo siguiente se muestra el número de secciones del primer documento abierto.
MsgBox Documents(1).Sections.Count
En el ejemplo siguiente se agrega una nueva sección a la segunda página del documento activo.
Dim objSection As Section
Set objSection = ActiveDocument.Sections.Add(StartPageIndex:=2)
En el ejemplo siguiente se eliminan todas las secciones del documento activo, excepto la primera.
Nota:
La iteración es de la última a la primera para evitar un error "Subíndice fuera del intervalo" al acceder a una sección eliminada de la colección Sections .
Dim i As Long
For i = ActiveDocument.Sections.Count To 1 Step -1
If i = 1 Then Exit For
ActiveDocument.Sections(i).Delete
Next i
Métodos
Propiedades
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.