Quote:
|
but it takes too much time just to work with one single file
|
About the only thing that can be done to make the macro run faster is to turn of screen updating while it runs:
Code:
Sub RevisionColorize()
Application.ScreenUpdating = False
Dim i As Long
With ActiveDocument
.TrackRevisions = False
For i = .Revisions.Count To 1 Step -1
With .Revisions(i)
If .Type = wdRevisionDelete Then
.Range.Style = "Red"
End If
If .Type = wdRevisionInsert Then
.Range.Style = "Blue"
.Accept
End If
End With
Next
.Revisions.RejectAll
End With
Application.ScreenUpdating = True
End Sub