Document.WorkIdentity (Word)

ActiveDocument.WorkIdentity =