export word review comments in excel

GMayor, your code is a huge help to me today.

Thank you so much for taking the trouble to post it and make it so easy to use.

Maybe something like

Sub CopyCommentsToExcel()

'Create in Word vba

'set a reference to the Excel object library

Dim xlApp As Excel.Application

Dim xlWB As Excel.Workbook

Dim i As Integer

Set xlApp = CreateObject("Excel.Application")

xlApp.Visible = True

Set xlWB = xlApp.Workbooks.Add ' create a new workbook

With xlWB.Worksheets(1)

    For i = 1 To ActiveDocument.Comments.Count

        .Cells(i, 1).Formula = ActiveDocument.Comments(i).Initial

        .Cells(i, 2).Formula = ActiveDocument.Comments(i).Range

        .Cells(i, 3).Formula = Format(ActiveDocument.Comments(i).Date, "dd/MM/yyyy")

    Next i

End With

Set xlWB = Nothing

Set xlApp = Nothing

End Sub

http://www.gmayor.com/installing_macro.htm

---

<Rrrrrrrgrrrrrr> wrote in message news:*** Email address is removed for privacy ***...

Hi , I have several Review comments in my word documents, I wan to export all these comments to excel sheet.

If it is possible by macros, please guide me with step by step process.

Regards,

RG

---

Graham Mayor - Word MVP

www.gmayor.com

Posted via the Communities Bridge

http://communitybridge.codeplex.com/

Yes! Thank you so much.

This is an old post now, but I just wanted you to know it is still very much helping peeps out big time. You have saved me an age.

This is a fantastic macro - used and worked like a dream. Thank you thank you thank you!

You could have the export routine replace each comment in the document with a { DOCVARIABLE varComment# } field and create and set the values of the variables to " ", then you repopulate routine would set the values of each of the variables to the corresponding values from the Excel Workbook and update the fields in the document so that it showed the comments.

Could this process be reveresed? 

As in could a macro be created to re-populate a document? are there any document markers that could be exported with this function to make this possible?

Many thanks ,

Nick