Changing font color of accepted changes

[rodonnell]

I'm trying to use this macro to change the font color of the track changes that I accept in a document so that they remain visible, but I'm getting a run time error saying the oRev.Type = <Requested object is not available.>. Any thoughts?

Sub ScratchMaco()
Dim oRev As Revision
For Each oRev In ActiveDocument.Revisions
If oRev.Type = wdRevisionInsert Then
oRev.Range.Font.Color = wdColorBlue
oRev.Accept
Else
oRev.Accept
End If
Next oRev
End Sub

Thanks,

Rob

[fumei]

Please use the VBA code tags when posting code.

As for the code...it works fine for me.