Dateiname und Pfad in Fußzeile von Folien

PowerPoint 2003 erste Stufe geschult.

Bis heute gibt es keine Möglichkeit den Dateinamen und den Pfad einer Präsentation in PowerPoint in die Fußzeile der Folien zu bekommen.
Ständig möchten das SchulungsteilnehmerInnen und auch in der Version 2007 ist es nicht möglich.
Da hilft nur ein Makro:
Mit ALT+F11 den VBA-Editor öffnen und schreiben:
Sub DateinameInFusszeile()
with ActivePresentation
if .HasTitleMasterThen
.TitleMaster.HeadersFooters.Footer .Text=.FullName
.TitleMaster.HeadersFooters.Footer.Visible = msoTrue
end if
.SlideMaster.HeadersFooters.Footer.Text = ActivePresentation.FullName
.SlideMaster.HeadersFooters.Footer .Visible = msoTrue
End With
End Sub