Voici un exemple de macro pour la section 1:

Sub pied_page()
   Dim MonTexte As String
   MonTexte = "<Remplacez ceci par votre texte>"
   Selection.HeaderFooter.Range.Text = MyText
   ActiveDocument.Sections(1).Footers(wdHeaderFooterPrimary).Range.Text = "MonTexte"
End Sub

 

Pour ajouter ce texte dans toutes les sections du document :

Sub pied_page()
'macro écrite par m@rina
   Dim MyText As String
   montexte = "<Remplacez ceci par votre texte>"
   For Each sect In ActiveDocument.Sections.Count
   ActiveDocument.Sections(sect).Footers(wdHeaderFooterPrimary).Range.Text = "montexte"
   Next sect
End Sub

Statistiques

Aujourd'hui215
Hier2602
Cette semaine8063
Total depuis 20049546603

6
visiteurs actuellement en ligne