Export Comments and Tracked Changes

Use a macro containing the following code:

Dim DocSource As Document, DocTarget As Document
Dim tbl As Table
Dim arev As Revision
Dim acomment As Comment
Dim i As Long
Dim strType As String
Set DocSource = ActiveDocument
Set DocTarget = Documents.Add
Set tbl = DocTarget.Tables.Add(Selection.range, 2, 3)
With tbl
    .Cell(1, 1).range.text = "Author"
    .Cell(1, 2).range.text = "Type"
    .Cell(1, 3).range.text = "Text"
End With
i = 2
With DocSource
    For Each arev In .Revisions
        tbl.Cell(i, 1).range.text = arev.Author
        Select Case arev.Type
            Case 1
                strType = "Insertion"
            Case 2
                strType = "Deletion"
            End Select
        tbl.Cell(i, 2).range.text = strType
        tbl.Cell(i, 3).range.text = arev.range.text
        tbl.Rows.Add
        i = i + 1
    Next arev
    For Each acomment In .Comments
        tbl.Cell(i, 1).range.text = acomment.Author
        tbl.Cell(i, 2).range.text = "Comment"
        tbl.Cell(i, 3).range.text = acomment.range.text
        tbl.Rows.Add
        i = i + 1
    Next acomment
End With
DocTarget.Activate

If there are other types of revisions in which you are interested, expand on the Select Case -  End Select construction by including the required entries from the wdRevisionType Enumeration:

Thanks, this worked for me. I copied the macro you provided and then saved it in the macros in my document, gave it a name and then ran it. I was able to save it into excel & word.