Automatic name in footer

[SV]

I want to ensure that I put the name of a presentation in the footer
when I save the presentation. So I understand that this needs an to
be driven by a "Save" event.

I have found http://officeone.mvps.org/eventgen/eventgen.html with

Sub OnPresentationSave(ByVal Pres As Presentation)
MsgBox "OnPresentationSave: Presentation " + Pres.Name + " saved!"
End Sub

But how do I integrate combine this with the code from http://pptfaq.com/FAQ00407.htm
???

Sub FilenameInFooter()

Dim FooterText As String

' And set it to the current presentation's full path/name
FooterText = ActivePresentation.FullName
' or if you prefer just the name use
' FooterText = ActivePresentation.Name

If ActivePresentation.HasTitleMaster Then
With ActivePresentation.TitleMaster.HeadersFooters
With .Footer
.Text = FooterText
.Visible = msoTrue
End With
End With
End If

With ActivePresentation.SlideMaster.HeadersFooters
With .Footer
.Text = FooterText
.Visible = msoTrue
End With
End With

With ActivePresentation.Slides.Range.HeadersFooters
With .Footer
.Text = FooterText
.Visible = msoTrue
End With
End With

End Sub

Do I need the event generator add-in to be selected all the time?
Where is the combined code stored? Another add-in??

Confused!

Steve

 

[Steve Rindsberg]

If I understand the event generator addin correctly, you should simply do this:

Sub OnPresentationSave(ByVal Pres As Presentation)
' insert code from FilenameInFooter here
' but remove the first line: Sub FilenameInFooter
' and the last line: End Sub
End Sub