Displaying the User Name in the Status Bar or Title Bar

Argh--last note, I promise. Where I said "keep the parentheses" I meant "keep the quotation marks". Sorry for any confusion.

One other note--where I say "My Name" below, that should be replaced with whatever you've told Word you are (but keep the parentheses). So in my case, it would instead be "Rusty Perrin".

A little dated reply, but note for Ken's 11/29 response that the change to make it show the last author might be something useful, but it is different than what the original poster was asking. The issue is when you are basically lying to Word about who "you" are. So you are telling it you are someone else, then going into change tracking to put edits in on their behalf. Then ideally, you change it back, but sometimes you forget. So what happens then is that a few days later you are making changes in some other document using track changes and thinking they are claiming to be from you, but instead they are showing up as being from the other person.

So I would stick with Application.UserName rather than changing to ActiveDocument.BuiltInDocumentProperties(wdPropertyLastAuthor). An additional improvement is I would add an If statement so that it only shows the name in the title bar if it is different from my actual name. So before both of the ActiveWindow.Caption lines, I'd add

If Application.UserName <> "My Name" Then

and put an EndIf after it. I also, to draw more attention to it, put a bunch of bullet characters before and after, so it stood out a bit more. Ideally, I'd like to put a red background behind it or at least make the text red, but I haven't figured out how to do that.

Lastly, one additional trigger point to update the title bar would be whenever you go in and change your user name and/or initials in Word. Anyone know how to make that happen?

Thanks, Rusty

Application.Username is the current Word user i.e. you.

ActiveDocument.BuiltInDocumentProperties(wdPropertyLastAuthor) is the user who last saved the document.

I'm just a little confused about a key element here. Aren't YOU the current user when in a document? Won't the status bar or title bar just display my UserName? I see KE's comment uses wdPropertyLastAuthor. Is this really addressing the UserName of the user who last modified? I may just not fully understand Application.UserName.

Under some circumstances the macros that add the user's name to the title bar can raise errors. By adding an on error statement the problem can be overcome. The macros then become:

Sub AutoOpen()
On Error Resume Next
ActiveWindow.Caption = ActiveWindow.Caption & _
" Author=" & ActiveDocument.BuiltInDocumentProperties(wdPropertyLastAuthor)
End Sub

Sub FileSaveAs()
On Error Resume Next
If Application.Dialogs(wdDialogFileSaveAs).Show Then
ActiveWindow.Caption = ActiveWindow.Caption & _
" Author=" & ActiveDocument.BuiltInDocumentProperties(wdPropertyLastAuthor)
End If
End Sub