Solved

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

Posted on 2011-03-10
4
842 Views
Last Modified: 2012-05-11
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",
0
Comment
Question by:dplearning
  • 2
  • 2
4 Comments
 
LVL 6

Accepted Solution

by:
royhsiao earned 500 total points
ID: 35096739
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"
    Else
    End If
End Sub

Open in new window

0
 

Author Comment

by:dplearning
ID: 35140565
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.
0
 
LVL 6

Expert Comment

by:royhsiao
ID: 35148063
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.
or
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.
0
 

Author Closing Comment

by:dplearning
ID: 36709849
thanks, but my user has abandoned their original question.
0

Featured Post

Ransomware-A Revenue Bonanza for Service Providers

Ransomware – malware that gets on your customers’ computers, encrypts their data, and extorts a hefty ransom for the decryption keys – is a surging new threat.  The purpose of this eBook is to educate the reader about ransomware attacks.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

This collection of functions covers all the normal rounding methods of just about any numeric value.
In this article we discuss how to recover the missing Outlook 2011 for Mac data like Emails and Contacts manually.
The viewer will learn how to simulate a series of coin tosses with the rand() function and learn how to make these “tosses” depend on a predetermined probability. Flipping Coins in Excel: Enter =RAND() into cell A2: Recalculate the random variable…
This Experts Exchange video Micro Tutorial shows how to tell Microsoft Office that a word is NOT spelled correctly. Microsoft Office has a built-in, main dictionary that is shared by Office apps, including Excel, Outlook, PowerPoint, and Word. When …

774 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question