Objet sections (Word)
Collection d’objets Section dans une sélection, une plage ou un document.
Utilisez la propriété Sections pour renvoyer la collection Sections. L’exemple suivant montre comment insérer du texte à la fin de la dernière section du document actif.
With ActiveDocument.Sections.Last.Range
.Collapse Direction:=wdCollapseEnd
.InsertAfter "end of document"
End With
Utilisez la méthode Add ou la méthode InsertBreak pour ajouter une nouvelle section à un document. L'exemple suivant montre comment ajouter une nouvelle section au début du document actif.
Set myRange = ActiveDocument.Range(Start:=0, End:=0)
ActiveDocument.Sections.Add Range:=myRange
myRange.InsertParagraphAfter
L'exemple suivant montre comment afficher le nombre de sections du document actif, ajouter un saut de section au-dessus du premier paragraphe de la sélection, puis afficher de nouveau le nombre de sections.
MsgBox ActiveDocument.Sections.Count & " sections"
Selection.Paragraphs(1).Range.InsertBreak _
Type:=wdSectionBreakContinuous
MsgBox ActiveDocument.Sections.Count & " sections"
Utilisez Sections (index), où index est le numéro d’index, pour renvoyer un seul objet Section . L’exemple suivant montre comment modifier les marges de gauche et de droite de la première section du document actif.
With ActiveDocument.Sections(1).PageSetup
.LeftMargin = InchesToPoints(0.5)
.RightMargin = InchesToPoints(0.5)
End With
Référence du modèle objet Word
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.