Code to Change Doc Properties with Variables

[kate12402]

I have this code that I'm trying to create where it automatically sets three of the document properties. I would like the Subject to be the current date in MMMM YYYY format, the Author to be "eClinicalWorks/" and the Title to take from the Style Title that I use only for the title of the document. Is this even possible?

This is the code I've been working with:

Sub Properties()
'
' Properties Macro
'
'
Option Explicit

Sub Set_Properties()

With ActiveDocument
.BuiltInDocumentProperties("Subject") = Selection.InsertDateTime
.BuiltInDocumentProperties("Author") = "eClinicalWorks/"
.BuiltInDocumentProperties("Title") = Selection.Fields.Add = "STYLEREF Title"​

End With

End Sub

I know I'm missing something big here... any help would be really appreciated

- Kate