Edit the Word document user properties.

Set objWord = CreateObject("Word.Application")

objWord.UserName = "My Name"
objWord.UserInitials = "MN"
objWord.UserAddress = "Address"

objWord.Quit