Copy working folder name into Title properties

dita · #1 05-18-2020, 12:02 AM

Hello!

I hope this is easy to do.

I need a macro that reads the folder name where I am working and then copy it into the Title Properties of the document.

Is it possible?

Thanks!

macropod · #2 05-18-2020, 02:37 AM

How much of the folder's path?

dita · #3 05-18-2020, 03:04 AM

The working folder is at this level:

C:\Users\user\Desktop\TEST\folder_name

and "folder_name" is what I want to add to the title properties.

Note that folder´s path may vary in some cases but it´s not use to be too large.

macropod · #4 05-18-2020, 04:48 AM

Try:

Code:

Sub Demo()
With ActiveDocument
  If .Path <> "" Then .BuiltInDocumentProperties("Title") = Right(.Path, Len(.Path) - InStrRev(.Path, "\"))
End With
End Sub

dita · #5 05-18-2020, 05:15 AM

It works

Thanks a million!

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Copy Properties	Sark	Word VBA	6	03-26-2018 03:25 AM
Set Default Filename: Title Composed of Two Document Properties	mike_302	Word VBA	1	01-18-2018 04:36 AM
Title versus Titre in file properties...	Gael	Word	4	08-28-2015 07:59 AM
How to constantly and automatically copy the contacts from a shared folder to my private folder?	Paulo	Outlook	0	08-16-2015 12:06 PM
Copy/Paste with all Properties	mohsen.amiri	Word	2	02-23-2015 08:55 PM