Remarque
L’accès à cette page nécessite une autorisation. Vous pouvez essayer de vous connecter ou de modifier des répertoires.
L’accès à cette page nécessite une autorisation. Vous pouvez essayer de modifier des répertoires.
Collection de tous les objets Section dans le document.
Remarques
Utilisez Item (index), où (index) est le numéro d’index, pour renvoyer un seul objet Section . L’utilisation de Sections (index), où (index) est le numéro d’index, retourne également un seul objet Section .
Utilisez Count pour renvoyer le nombre de sections dans la composition.
Utilisez Add (StartPageIndex), où StartPageIndex est le numéro d’index de la page, pour renvoyer une nouvelle section ajoutée à un document. Une erreur « Autorisation refusée » est retournée si la page contient déjà un en-tête de section.
Utilisez Section.Delete (index), où (index) est le numéro d’index, pour supprimer la section spécifiée du document. Une erreur « Autorisation refusée » est retournée si une tentative de suppression de la première section est effectuée.
Exemple
L’exemple suivant définit le format de nombre et le numéro de départ de la première section du document actif.
With ActiveDocument.Sections.Item(1)
.PageNumberFormat = pbPageNumberFormatArabic
.PageNumberStart = 1
End With
L’exemple suivant poursuit la numérotation de la section précédente pour la deuxième section du document actif.
ActiveDocument.Sections(2).ContinueNumbersFromPreviousSection=True
L’exemple suivant affiche le nombre de sections dans le premier document ouvert.
MsgBox Documents(1).Sections.Count
L'exemple suivant ajoute une nouvelle section à la deuxième page du document actif.
Dim objSection As Section
Set objSection = ActiveDocument.Sections.Add(StartPageIndex:=2)
L’exemple suivant supprime toutes les sections du document actif, à l’exception de la première.
Remarque
L’itération est de la dernière à la première pour éviter une erreur « Indice hors limites » lors de l’accès à une section supprimée dans la collection 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éthodes
Propriétés
Voir aussi
Assistance et commentaires
Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.