Hi Jamal,
For Word:
Code:
Sub AutoOpen()
'Displays the Document Path & File Size in the Title Bar
With ActiveDocument
ActiveWindow.Caption = .FullName & ": " & _
.BuiltInDocumentProperties(wdPropertyBytes) / 1024 & "KB"
End With
End Sub
I'm not sure about Excel.