Classe Sections (Word VBA)
Une collection d’objetsSection d’une sélection, d’une plage ou d’un document. Pour utiliser une variable de classe Sections, elle doit d'abord être instanciée, par exemple
Dim scts as Sections
Set scts = ActiveDocument.Range.Sections
For Each
Voici un exemple de traitement des éléments Sections dans une collection
Dim sec As Section
For Each sec In ActiveDocument.Range.Sections
Next sec
Add
Renvoie un objet section qui représente une nouvelle section ajoutée à un document.
Set myRange = ActiveDocument.Paragraphs(3).Range
ActiveDocument.Sections.Add Range:=myRange
Arguments
Optional arguments
Les arguments suivants sont facultatifs
Range (Range) - Plage avant laquelle vous souhaitez insérer le saut de section.
Start (WdSectionStart) - Le type de saut de section que vous souhaitez ajouter.
Valeurs possibles sont
wdSectionContinuous | Saut de section continu. |
wdSectionEvenPage | Saut de section aux pages paires. |
wdSectionNewColumn | Saut de section aux nouvelles colonnes. |
wdSectionNewPage | Saut de section aux nouvelles pages. |
wdSectionOddPage | Saut de section aux pages impaires. |
Count
Renvoie un type long qui représente le nombre de sections dans la collection.
Dim lngCount As Long
lngCount = ActiveDocument.Range.Sections.Count
First
Renvoie un objet section qui représente le premier élément de la collection sections .
Dim secFirst As Section
Set secFirst = ActiveDocument.Range.Sections.First
Item
Renvoie un objet section spécifique appartenant à une collection.
Item (Index)
Index: Objet spécifique qui doit être renvoyé.
Dim sec As Section
Set sec = ActiveDocument.Range.Sections(Index:=1)
Last
Renvoie le dernier élément de la collection Sections sous forme d'un objet Section.
Dim secLast As Section
Set secLast = ActiveDocument.Range.Sections.Last
PageSetup
Renvoie un objet PageSetup associé au document, à la plage, à la section, aux sections ou à la sélection spécifiés.
Documents("Summary.doc").Sections(1).PageSetup.Gutter = 36