user_mobilelogo

Word 365: Vous saurez tout !

Pour tout connaître sur Word
Nouvelle version !

600 pages !

9,80 € 

 

En savoir plus.

Sub pieddepage()
'macro écrite par m@rina
ActiveWindow.ActivePane.View.SeekView wdSeekCurrentPageFooter
With Selection.HeaderFooter.Range
.Text = ""
.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="FILENAME \p"
End With
ActiveWindow.ActivePane.View.SeekView wdSeekMainDocument
End Sub

Statistiques

Aujourd'hui169
Hier2977
Cette semaine16435
Ce mois13151
Total depuis 200412617552

5
visiteurs actuellement en ligne

5 décembre 2020