Document Filename V Document Title

Question

Hi,

I've tried searching and the results are inconclusive for the following scenario:

When a particular document is created, be it in excel or Word or PowerPoint, and then the file is saved and you give it a filename based on whatever criteria, say for example: ‘doc001-03-02-17.xlsx’

And the filename is then displayed at the top of the document [above the ribbon] when you have it open.

And say for example you go to file->info and under properties you add in a nice Title: ‘Weekly Report for admin staff 03-02-17 Draft’

My question is:

Is there a way to display the ‘Title’ from properties up at the top of the document, rather than the ‘Filename’ that is currently displayed?

For the life of me I cannot find any information or solution that would do this.

Any help is greatly appreciated.

Regards

Will

Answer 1

Hi Gord,

Thanks very much for the replies. sorry for not getting back sooner.

ah, macro based. i was hoping it could be changed without having to do it in VBA. as the majority of users wouldn't know or probably trust the document to allow it to run.

Side note: if it can only be done via VBA, i'll create an Add-in and allow the user to click on a button to show the title from the Ribbon.

Side note 2: I'm surprise there isn't an option availble, If you've used sharepoint, they put the emphasis on using titles in document librarys, rather than the file name. (but thats for another forum area)

Will

Answer 2

Another point and amended code.

If you also want to get rid of "Microsoft Excel"

Private Sub Workbook_Open()

    Application.Caption = " "

    ActiveWindow.Caption = "Weekly Report for admin staff 03-02-17 Draft"

End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)

    Application.Caption = ""

    ActiveWindow.Caption = ""

End Sub

Gord

Answer 3

You can add this code to Thisworkbook module.

Private Sub Workbook_Open()

      ActiveWindow.Caption = "Weekly Report for admin staff 03-02-17 Draft"

End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)

      ActiveWindow.Caption = ""

End Sub

Gord