Thread: Word 2003
View Single Post
  #35   Report Post  
Greg
 
Posts: n/a
Default

RV,

The accept and reject changes icons remained dimmed in track changes is
still enabled. Ensure that that changes is disabled and see if that
brings the icons to life. If not, and it you have actual revision
objects in the document you might try the following macro:

Sub Test()
Dim oRev As Revision
For Each oRev In ActiveDocument.Revisions
oRev.Range.Select
If MsgBox("Do you want to accept this revision?" _
, vbYesNo, "Review") = vbYes Then
oRev.Accept
Selection.Collapse wdCollapseEnd
Else
oRev.Reject
End If
Next
End Sub