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
Comment insérer par macro le nom du fichier avec son chemin complet en pied de page ?
- Détails
- Catégorie parente: Word
- Catégorie : Mise en page
- Affichages : 12816