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