The following code adds the document path to the title bar, I believe
you could modify  it to add  whatever you want it to.

Sub AutoOpen()
'Displays the Document Path in the Title Bar
ActiveWindow.Caption = ActiveDocument.FullName
End Sub