locked
Change Track Change Author after Review Complete RRS feed

  • Question

  • In a Word 2010 report, various reviewers have worked on their individual sections so track changes shows their individual names.

    Now the client wants no individual name but company initials instead.

    Can I somehow make that change from my computer? If they open the doc on their computer and make the change individually, is there a way to update that information?

    Thanks!


    • Edited by Susan Muncy Thursday, February 12, 2015 7:54 PM
    Thursday, February 12, 2015 7:50 PM

Answers

  • You could do that with a macro, such as:

    Sub Demo()
    Application.ScreenUpdating = False
    Dim StrUser As String, StrCompany As String, i As Long, Rng As Range, RngMv As Range, bTrk As Boolean
    StrUser = Application.UserName: StrCompany = "My Company"
    Application.UserName = StrCompany
    With ActiveDocument
      On Error Resume Next
      bTrk = .TrackRevisions
      .TrackRevisions = True
      For i = 1 To .Revisions.Count
        Set Rng = .Revisions(i).Range
        With .Revisions(i)
          If .Author <> StrCompany Then
            If .Type = wdRevisionDelete Then
              .Reject
              Rng.Delete
            End If
            If .Type = wdRevisionInsert Then
              Rng.Copy
              Rng.Collapse wdCollapseEnd
              .Reject
              Rng.Paste
            End If
          End If
        End With
      Next
      For i = .Revisions.Count To 1 Step -1
        Set Rng = .Revisions(i).Range
        With .Revisions(i)
          If .Author <> StrCompany Then
            If .Type = wdRevisionMovedFrom Then
              Set RngMv = .MovedRange
              .Reject
              Rng.Cut
              RngMv.Paste
            End If
          End If
        End With
      Next
      .TrackRevisions = bTrk
    End With
    Application.UserName = StrUser
    Application.ScreenUpdating = True
    End Sub

    The above macro deals with insertions, deletions and moves. There are numerous other revision types that might also need to be dealt with - I'll leave it to your organization to code for them. Change 'My Company' to whatever name you want to use.


    Cheers
    Paul Edstein
    [MS MVP - Word]

    • Proposed as answer by George123345 Thursday, February 19, 2015 6:26 AM
    • Marked as answer by George123345 Tuesday, February 24, 2015 3:20 AM
    Friday, February 13, 2015 7:57 AM

All replies

  • You could do that with a macro, such as:

    Sub Demo()
    Application.ScreenUpdating = False
    Dim StrUser As String, StrCompany As String, i As Long, Rng As Range, RngMv As Range, bTrk As Boolean
    StrUser = Application.UserName: StrCompany = "My Company"
    Application.UserName = StrCompany
    With ActiveDocument
      On Error Resume Next
      bTrk = .TrackRevisions
      .TrackRevisions = True
      For i = 1 To .Revisions.Count
        Set Rng = .Revisions(i).Range
        With .Revisions(i)
          If .Author <> StrCompany Then
            If .Type = wdRevisionDelete Then
              .Reject
              Rng.Delete
            End If
            If .Type = wdRevisionInsert Then
              Rng.Copy
              Rng.Collapse wdCollapseEnd
              .Reject
              Rng.Paste
            End If
          End If
        End With
      Next
      For i = .Revisions.Count To 1 Step -1
        Set Rng = .Revisions(i).Range
        With .Revisions(i)
          If .Author <> StrCompany Then
            If .Type = wdRevisionMovedFrom Then
              Set RngMv = .MovedRange
              .Reject
              Rng.Cut
              RngMv.Paste
            End If
          End If
        End With
      Next
      .TrackRevisions = bTrk
    End With
    Application.UserName = StrUser
    Application.ScreenUpdating = True
    End Sub

    The above macro deals with insertions, deletions and moves. There are numerous other revision types that might also need to be dealt with - I'll leave it to your organization to code for them. Change 'My Company' to whatever name you want to use.


    Cheers
    Paul Edstein
    [MS MVP - Word]

    • Proposed as answer by George123345 Thursday, February 19, 2015 6:26 AM
    • Marked as answer by George123345 Tuesday, February 24, 2015 3:20 AM
    Friday, February 13, 2015 7:57 AM
  • Not exactly. The reviews are complete and changes are tracked by original author. Document is now to me and client wants no reviewer names but just company initials.

    Can I, how can I, make that change for all reviewers?\

    Friday, February 13, 2015 1:34 PM
  • Thank you, I will certainly give this a shot!

    Happy Friday!

    Friday, February 13, 2015 1:34 PM