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 = MonTexte
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
sect.Footers(wdHeaderFooterPrimary).Range.Text = montexte
Next sect
End Sub