J'ai besoin d'une macro qui insère directement le nom du fichier et le chemin complet en pied de page tout en sauvegardant mon fichier. Si un autre pied de page existe, je veux qu'il soit remplacé.
- Détails
- Catégorie parente: Faq Word
- Catégorie : VBA solutions
- Mis à jour le mardi 18 octobre 2011 20:58
- Affichages : 2121
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
ActiveDocument.save
End Sub
