Excel 2010 - How to automatically set default Document Title equal to Filename?

[Steve116]

Our company will soon utilize a commercialized Google search engine application to search through corporate folders in search of files. Apparently the search engine relies upon Document Property Titles, not the Document Filenames to provide the most efficient search. We've got a huge project underway to make sure each of the tens of thousands of files have a Document Title.
The problem is that we create many new files every single day and would like to avoid having to both Name the File and remember to give it a Document Title. Is there a way we can automatically set the (default) Document Title equal to the Filename at the point in time the file is saved?

 

[igold]

Hi Steve,

You could use something like this, but you either have to put it in the Personal.xlsb on everybody's computer or perhaps find another way to implement it. At any rate this will do what you want as long as on new workbook you save it first and then close it.

You may want to play with what triggers the code, but this is the essence of what you want....

If you want to google "BuiltinDocumentProperties" perhaps you will be able to create something more suitable for your company.

Private Sub Workbook_AfterSave(ByVal Success As Boolean)
    Dim DocProp1 As String
    DocProp1 = Me.Name
    ThisWorkbook.BuiltinDocumentProperties("Title") = DocProp1
End Sub

HTH

igold