user_mobilelogo

Pour tout connaître sur Word
Nouvelle version !

600 pages !

9,80 € 

En savoir plus.

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

Voir aussi...

Statistiques

Aujourd'hui106
Hier2243
Cette semaine9425
Ce mois52085
Total depuis 200413083012

5
visiteurs actuellement en ligne

25 juin 2021