• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 882
  • Last Modified:

User Initials in Track Changes/Reviw Disappearing Upon Document Save (Word 2007)

1) Author reviews a document in Compatibility Mode in MS Word 2007.
2) Reviewer "Bobby Reed Smith" inserts a Word comment, deletes text and adds text, and as he does so, his user initials ("BRS") and name (Bobby Reed Smith) are included in the comment bubble number.
3) When Bobby saves the document, about a half-second later the comment bubble and included text remain unchanged, but all the user initials have changed to "Author inserted",
  • 2
  • 2
1 Solution
Try this code.
This code will update the user Initials to Author (char. is limited to nine in initials) if the user initials match to reviewer's initial. In this case, it is BRS.

Private Sub Document_Open()
    If Application.UserInitials = "BRS" Then
    Application.UserName = "Author inserted"
    Application.UserInitials = "Author"
    End If
End Sub

Open in new window

dplearningAuthor Commented:
Thanks royhsiao. But I put this in the wrong zone; it should be Windows OS. Also, I don't have rights to add code to user's computer. I'd also like to find out why it's only happening to this one user and none of her colleagues.
I am using Windows MS 2007.
I guess a easier way is to manually update  the user name and initials before her/she inserts word comments.
you could insert the macro that I gave to you in the word documents and distribute it to the user.

The code I wrote only works for BRS. I will need to revise the code if you want to include other people.
dplearningAuthor Commented:
thanks, but my user has abandoned their original question.
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

Join & Write a Comment

Featured Post

7 new features that'll make your work life better

It’s our mission to create a product that solves the huge challenges you face at work every day. In case you missed it, here are 7 delightful things we've added recently to monday to make it even more awesome.

  • 2
  • 2
Tackle projects and never again get stuck behind a technical roadblock.
Join Now