This one doesn't need a macro.

Use one of the entries in Insert > Quick Parts > Document Property to insert a Content Control which is linked to a built-in document property. You can repeat this in multiple places or copy the CC to other locations.

__________________
Andrew Lockton
Chrysalis Design, Melbourne Australia