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.
Una colección de todos los objetos de sección del documento.
Comentarios
Use Elemento (índice), donde (índice) es el número de índice, para devolver un solo objeto de sección. El uso de Secciones (índice), donde (índice) es el número de índice, también devolverá un único objeto Sección .
Use Contar 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. Se devuelve un error "permiso denegado" si se intenta eliminar la primera sección.
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 para 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 de "Subíndice fuera de rango" al acceder a una sección eliminada en la colección de secciones .
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.