Change author name to hide identity in track changes

Hi,

We want to send a word file and in track changes mode but remove all authors and set one generic name. In previous versions, I could do that by changeing my name in File > Options > General, > Username.

I tried to run the Inspect document but still in vain.

Any thoughts?

Thanks a lot in advance

Answer
Answer

You can't hide your identity after the fact--after you have made changes identified with your name--but you can certainly change the user name before editing. In fact, if you click the dialog launcher in the Tracking group on the Review tab, the resulting Track Changes Options dialog has a button for Change User Name... This opens the Word Options dialog to the General tab, where you can change your user name and initials temporarily. Don't forget to change them back after editing the document.

Since it would appear that this is the same method you used in Word 2010, I'm not sure why you haven't tried it in Word 2013.

Microsoft MVP (Word) since 1999
Fairhope, Alabama USA
http://ssbarnhill.com
http://wordfaqs.ssbarnhill.com
Screen shots captured with TechSmith's Snagit

10 people found this reply helpful

·

Was this reply helpful?

Sorry this didn't help.

Great! Thanks for your feedback.

How satisfied are you with this reply?

Thanks for your feedback, it helps us improve the site.

How satisfied are you with this reply?

Thanks for your feedback.

Answer
Answer

As Suzanne says, it is not possible to change the author name if the Revision has already been made. This particular property is Read Only in VBA.

However, it is possible to make a workaround that would allow you achieve the same thing - Compare Documents. If you made two copies of the file and in one you accept all changes by that author, in the other reject all those changes. Then set your username option and do a compare of these two documents.

A macro to accept/reject revisions based on the author might look like this

Sub AcceptOneAuthorRevisions()
  Dim i As Integer
  For i = ActiveDocument.Revisions.Count To 1 Step -1
    If ActiveDocument.Revisions(i).Author = "arevach" Then
      ActiveDocument.Revisions(i).Accept
    End If
  Next aRev
End Sub

Andrew Lockton
Melbourne Australia

19 people found this reply helpful

·

Was this reply helpful?

Sorry this didn't help.

Great! Thanks for your feedback.

How satisfied are you with this reply?

Thanks for your feedback, it helps us improve the site.

How satisfied are you with this reply?

Thanks for your feedback.

 
 

Question Info


Last updated May 1, 2024 Views 59,443 Applies to: