Classe Section - section (Word VBA)

La classe Section représente une section dans une sélection, une plage ou un document.

Pour utiliser une variable de classe Section, elle doit d'abord être instanciée, par exemple

Dim sec as Section
Set sec = ActiveDocument.Range.Sections(Index:=1)

Les procédures suivantes peuvent être utilisés pour définir des variables de la classe Section : Sections.Add, Sections.First, Sections.Item et Sections.Last.

For Each

Voici un exemple de traitement des éléments Section dans une collection

Dim sec As Section
For Each sec In ActiveDocument.Range.Sections
	
Next sec

Borders

Renvoie une collection Borders qui représente la totalité des bordures de la section.

Pour plus d’informations sur le renvoi d’un seul membre d’une collection, voir renvoi d’un objet à partir d’une collection.

ActiveDocument.Range.Sections(1).Borders =

Footers

Renvoie une collection HeadersFooters qui représente les pieds de page dans la section spécifiée.

Pour plus d’informations sur le renvoi d’un seul membre d’une collection, voir renvoi d’un objet à partir d’une collection.

With ActiveDocument.Sections(1).Footers(wdHeaderFooterPrimary) 
 .PageNumbers.Add PageNumberAlignment:=wdAlignPageNumberRight 
End With

Headers

Renvoie une collection HeadersFooters qui représente les en-têtes de la section spécifiée.

Pour plus d’informations sur le renvoi d’un seul membre d’une collection, voir renvoi d’un objet à partir d’une collection.

With ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary) 
 .PageNumbers.Add _ 
 PageNumberAlignment:=wdAlignPageNumberCenter, _ 
 FirstPage:=False 
End With

Index

Renvoie un type long qui représente la position d'un élément dans une collection.

Dim lngIndex As Long
lngIndex = ActiveDocument.Range.Sections(1).Index

PageSetup

Renvoie un objet PageSetup associé à la section spécifiée.

Documents("Summary.doc").Sections(1).PageSetup.Gutter = 36

ProtectedForForms

Cette propriété a la valeur True si la section spécifiée est protégée contre la modification des formulaires.

Si tel est le cas, vous pouvez sélectionner et modifier le texte uniquement dans les champs de formulaire.

If ActiveDocument.Sections.Count >= 2 Then _ 
 ActiveDocument.Sections(2).ProtectedForForms = True

Range

Renvoie un objet Range qui représente la partie d'un document contenue dans l'objet spécifié.

Set myRange = ActiveDocument.Sections(1).Range 
With myRange 
 .MoveEnd Unit:=wdCharacter, Count:=-1 
 .Collapse Direction:=wdCollapseEnd 
 .InsertParagraphAfter 
 .InsertAfter "End of section" 
End With