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'hui1086
Hier2750
Cette semaine6549
Ce mois67334
Total depuis 200414840311

31
visiteurs actuellement en ligne

29 mars 2023