Sub AddNameToFooter()
'  This macro adds the name of the file in the footer of the document, in all files of the directory
' 16/Aug/05
' Gary Daine
'
ActiveDocument.Sections(1).Footers(wdHeaderFooterPrimary).Range.Text = 
ActiveDocument.Name
End Sub