In Excel, add the following code to Personal.xls

Private WithEvents app As Application

Private Sub app_WorkbookBeforePrint(ByVal Wb As Workbook, Cancel As Boolean)
With Wb.ActiveSheet.PageSetup
.LeftFooter = ActiveWorkbook.FullName
.RightFooter = Format(Date, "dd mmm yyyy")
End With
End Sub

Private Sub Workbook_Open()
Set app = Application
End Sub

'This is workbook event code.
'To input this code, right click on the Excel icon on the worksheet
'(or next to the File menu if you maximise your workbooks),
'select View Code from the menu, and paste the code



--

HTH

RP
(remove nothere from the email address if mailing direct)


"Ramin" wrote in message
...
Hi,


Is it possible that if user creates new documents in word or excel,
automatically (date, name, paths and etc) to be added as footer

or is it possible somehow to make domainwide via AD?

Regards,
Ramin

Thanks,
Ramin