Copy working folder name into Title properties

		Microsoft Office Forums > Microsoft Word > Word VBA
Copy working folder name into Title properties

FAQ

Thread Tools

Display Modes

05-18-2020, 04:48 AM

macropod

Windows 7 64bit Copy working folder name into Title properties

Office 2010 32bit

Administrator

Join Date: Dec 2010

Location: Canberra, Australia

Posts: 22,519

Try:

Code:

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

__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]

« Previous Thread | Next Thread »

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

Other Forums: Access Forums

All times are GMT -7. The time now is 09:50 PM.