Word provides no tools for doing anything of that kind. Besides which some changes are impossible to express in a text form. Word tracks 18 kinds of change:
Insertion
Deletion
Property changed
Paragraph number changed
Field display changed
Revision marked as reconciled conflict
Revision marked as a conflict
Style changed
Replaced
Paragraph property changed
Table property changed
Section property changed
Style definition changed
Content moved from
Content moved to
Table cell inserted
Table cell deleted
Table cells merged
Would you really want to record a format change, for example, by crossing out all the text in the old format, then reinserting the same text with underlining in the new format? And how would that work if the format change involved a colour change, table cell insertions/deletions, etc.?
As for comments, how exactly would you incorporate those into a document in a sensible way, especially where tracked changes are involved?
Basically what you'd need to do is make two copies of the document - one with all changes rejected and another with all changes accepted, then manually strike out all the deleted text & formatting from the one with the rejected changes and copy into it and underline all the added text & formatting from the one with the accepted changes.
The following macro should ease the process - it turns all tracked additions, deletions & moves into underlined/struck-out text.
Code:
Sub LockRevisions()
Application.ScreenUpdating = False
Dim i As Long, RngRev As Range, RngMov As Range
With ActiveDocument
.TrackRevisions = False
For i = .Revisions.Count To 1 Step -1
With .Revisions(i)
Set RngRev = .Range
Select Case .Type
Case wdRevisionInsert
.Accept
RngRev.Font.ColorIndex = wdBlue
RngRev.Font.Underline = wdUnderlineSingle
Case wdRevisionDelete
.Reject
RngRev.Font.ColorIndex = wdRed
RngRev.Font.StrikeThrough = True
Case wdRevisionMovedFrom
Set RngMov = .MovedRange
.Reject
RngMov.Text = RngRev.Text
RngMov.Font.ColorIndex = wdGreen
RngMov.Font.Underline = wdUnderlineSingle
RngRev.Font.ColorIndex = wdGreen
RngRev.Font.StrikeThrough = True
End Select
End With
Next
End With
Set RngRev = Nothing: Set RngMov = Nothing
Application.ScreenUpdating = True
End Sub
You'd still need to explain how all the other tracked formatting changes, etc. and comments should be incorporated in the 'final'.