run create object on a virgin machine.
the object picks up the log on as the objects username but without applying it
so , capture it then apply it.
if its not a virgin machine, you are simply capturing the correct username and then applying it back
thanks for all the help dudes

dim objword
dim myUserName
dim myUserInitials
Set objWord = CreateObject("word.Application")
myUserName = objWord.UserName
myUserInitials = objWord.UserInitials
objWord.UserName = myUserName
objWord.UserInitials = myUserInitials
objWord.Quit

Leave a comment: