Experts Exchange connects you with the people and services you need so you can get back to work.
Dim rev As Revision
Dim comm As Comment
Dim docB As Document
Dim docA As Document
Set docA = ActiveDocument
Set docB = Documents.Add
docB.Range.Text = "Comments" & vbCr
For Each comm In docA.Comments
docB.Bookmarks("\EndOfDoc").Range.Text = comm.Range.Text
docB.Bookmarks("\EndOfDoc").Range.Text = vbCr & "Revisions" & vbCr
For Each rev In docA.Revisions
docB.Bookmarks("\EndOfDoc").Range.Text = rev.Type & vbTab & rev.Range.Text & vbCr
Open in new window
Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.
Have a better answer? Share it in a comment.
Please enter a first name
Please enter a last name
Must be at least 4 characters long.
Join and Comment
From novice to tech pro — start learning today.
Premium members can enroll in this course at no extra cost.